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INTRODUCTION 


In October 1979, a computer program based on the state-of-the-ai^t compressor 
and structural technologies applied to bladed-shrouded-disk was developed and 
delivered to NASA Lewis Research Center under Contract NAS3-20382. The program 
was made operational in NASTRAN Level 16. 

As part of the effort under the present contract, NAS3-22533, t^he bladed 
disk computer program has been updated for operation in NASTRAN Level 17.7. 

This report documents the program in the form of Updates to NASTRAN Level 17.7 
Theoretical, User's, Programmer's, and Demonstration Manuals. 

The supersonic cascade unsteady aerodynamics routine UCAS, delivered as 
part of the NASTRAN Level 16 program has been recoded to improve its execution 
time. These improvements are presented in the Appendix. 

The work was conducted under Contract NAS 3-22533 from NASA Lewis Research 
Center, Cleveland, Ohio, with Mr. Richard E. Morris as the Technical Monitor. 
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This section contains new and replacement pages for Level 17. 
the NASTRAN Theoretical Manual, NASA SP-221(05). 

The updates pertain to aeroelastic theory for turbomachines, 
pages to be replaced or inserted are: 
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18. AEROELASTIC, HOOAL AND FLUTTER ANALYSES OF UNSTALLFO AXIAL FLOW TURBOMACKINES 


18.1 INTRODUCTION 

The rotors and stators of axial flow compressors and turbines are subjected 
to centrifugal, thermal and airloads that depend on the geometry and the operat- 
ing parameters. Steady aeroelastlc and unsteady response of these “cyclically 
symmetric” structures, In turn. Influence the applied thermal and airloads. 

These Inter-active loads and responses arise fundamental ly from the elasticity 
of the structure and determine the performance and stability characteristics 
of the "flexible" turboroachi ne. 

Theoretical developments of Ref rences 1-3, have been applied to determine 

the thermal and airloads on the rolor/stator blade of an axial flow turbomach inc. 

The computer code of Reference 1 has been adapted for NASTRAN in the functional 

module ALG to generate the steady state aerodynamic pressure and temperature 

% 

loads. Computer codes of linearized, two-dimensional, harmonic cascade theories 
for subsonic and supersonic flows (References 2 and 3, respectively) have been 
utilized in the functional module AMG to estimate the harmonic airloads on the 
blade in a strip-theory manner. No trarsonlc flow theory has been included 
presently, and the airloads on and near the transonic cylinder (or cone) are 
estimated by linear Interpolation from subsonic and supersonic adjacent strip 
resu 1 ts . 

These steady and harmonic aerodynamic theories. In conjunction with the 
existing structural analyses capabilities in NASTRAN have been iniplenicnted in 
the form 'of two new rigid formats to perform; 

(1) Static aerothermoelastic "design/analysis", including differential 
stiffness effects, of an axial flow compressor rotor/stator 

(DISP Approach RF 16), and 

(2) Cyclic modal, unstallcd flutter and subcritical roots analyses 

of an axial flow compressor and turbine rolor/stator (AER|9 Approach 
RF 9). 


lH.1-1 (9/30/78) 


AEROELASTIC AND DYNAMEC ANALYSES OF TURBOMACHINES 


The rigid formats are designed such that the rotor (or stator) of a 
single-stage, or of each stao' of o multi-stage compressor or turbine Is 
analyzed as an Isolated structure. 

Rigid formats have been designed In a modular fashion so that additional 
or Improved aerodynamic computer codes could replace those currently 
Incorporated. 
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18.? STATIC AEROTHERMOELASTIC "DES IGH/ANAL V S I S" OF AXIAL 
FLOW COMPRESSORS WITH DIFFERENTIAL STIFFNESS 

At an operating point under steady-state conditions, the hladed-dlsc 
of the compressor Is subjected to centrl fugal, thermal and aerodynamic 
loads that result In deformation of the elastic structure. For a f^t^ed 
flow rate and rotational speed, the deformation Implies a change In the 
operating point pressure ratio. 

The process of arriving at an "as manufactured" blade shape to produce 
a desl red . design operating point pressure ratio at a given flow rate and 
speed is herein termed the "design" problem. The subsequent process Of 
analyzing the performance of the "as manufactured" geometry at off-design 
conditions including the effects of flealbillty is herein termed the 
"analysis" problem. 

The current NASTRAN Static Analysis with Differential Stiffness rigid 
format has been modified to include the effects of non-aerodynamic (centri- 
fugal, etc.) and aerodynamic (pressure and temperature) loads. The following 
remarks apply to the simplified problem flow and the algorithm shown in 
Figures 1 and 2, respectively. 

1 . The geometry of the compressor bladed-disc sector, its material pro- 
perties and the applied constraints are used to generate and partition 
the elastic stiffness matrix. Non-aerndyanmic load vectors are formed 

and an operating point flow rate, speed, loss parameters, etc. are selected. 

2. Based on the undeformed blade geometry and the operating point 
aerodynamic parameters, the functional module ALG generates the aerodynamic 
load vector. 

3. Total loads are defined as a combination of aerodynamic and non- 
aerodynamic loads, 

4. A linear solution for independent displacements is obtained based 
on the elastic stiffness and the total loads. 
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5. Omitted and constrained displacements are recovered, and stresses, 
reactions, etc., are obtained. 

I 

6. A differential stiffness matris is derived as a function of the 
grid point displacements. 

7. A total stiffness matrix is now defined as a sum (or difference) 
of the elastic and geometric (differential) stiffness matrices for the 
"analysis" (or "design") problem. 

8. The linear d i spl accniants obtained earlier are used to revise the 
blade geometry and a revised aerodynamic load vector is obtained, 

9. Again, the aerodynamic and non-aerodynamic load vectors are 
combined to define the total load vector. 

10. A non-linear solution for independent displacements is obtained based 
on the total stiffness and the total loads. 

11. Dependent displacements are obtained and data such as stresses, 
reactions, etc., are recovered. 

12. Convergence of the solution is based on the parameter e defined by 



Upon convergence, the final displacements, loads, the deformed blade 
geometry, etc., are output. Otherwise, further iterations are performed. 

A decision to update the differential stiffness matrix requires a shift 
to the outer loop. Only the load vector is revised in the inner loop iterations. 

12.1 The final pass, upon convergence, through the functional module 
ALC yields tne "flexible" operating point pressure ratio (among other 
aerodynamic data), which can be relocated on the compressor map. 
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The "design” mode of the rigid format is exercised only at Ui« design 
operating point of the compressor. It is a two~stcp procedure in that 
having "designed" the blade shape, i.e., the "as manufactured" shape, it 
should be "analyied" at the same operating point to confirm the design point 
pressure ratio. The "analysis" mode of the rigid format is a one-stpp 
procedure. The "designed" blade is "analyzed" at selected operating points 
over the compressor map, one at a time, to generate the "flexible" performance 
characteristics of the compressor. The differential stiffness matrix 
generated during the analysis can be saved for use in subsequent modal 
analysis. 
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Flow Rate 


b. “Flexible'' blade operat- 
ing pressure ratio. 



mplifled Problem Flow for Static Aerothermoelastic 
esign/Analyiis" Rigid Format for Axial Flow Compressors 
eluding Differential St\,fness effects, (continue^) 
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ORIGINAL PAGE B 
OF POOR QUALITY 

AEROELASTIC ANALYSIS OF TUROOMAOHNES 



Figure 1, Simplified Problem Flow for Static Acrothermoel astic 

"Design/Analysis" Rigid Format for Axial FI owCompressors 
including Differential Stiffness Effects, (continued) 
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Final displacements Iu°)g deformed 

9 

blade geometry, stress, et(. -f 
operating point pressure ratio and 
other flow parameters. 


Point b on th^ map 


Simplified Problem Flow for Static Aerothernioelastic 
“Design/Analysis'' Rigid Fo mat for Axial Flow Compressors 
including Differential Stiffness Effects, (concluded) 
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1 . 


2 . 


3, 


4. 


5. 


6. 


Enter ,, after the application of constraints and partltionipg 
to the stiffness matrix and the generation and transformation 
of the non-aerodynamic load vectors (centrifugal, etc^), with 
K P 

aa* '^g , G^. etc. 


ip/) — 

Aerodynamic ^oad Generator 
(pressure and temperature) 


(Pg) = iPg”''} +{Pg*) 


IP,} 


constrain , 
partition 


>''l> 


|„ ),CS£»HP 

[GJ, [Gj,], etc. 

iK^g] -iKgg HUg))] 


Undeformpd blade geometry a 
operating point (flpw ratOo 
speed, loss parameters, etc.) 


(Pg) = {Pj^} 








partition 


OUTER LOOP begins 


7. [K^,] = [K ] + (+) for “analysi*^ mode of the rigid format 

M, S,'^ d3 •“ do • 

(-) for "design" mode of‘the rigid format 

If,,) = i%|i * <»> 

f”5> ' •»,) 

Figure 2. Simplified Solution Algorithm for Static Aerothennoel^stic 

"Design/Analysis" Rigid Format for Arial Flow ppmpressors including 
Differential Stiffness Effects, (continued) 
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-- o Inner Loop begins 
Deformed blade geometry, revised with 


■CS) 


9. iPg2) ^ (Pgl>^(Pg'') 

iPb ^ ^°"^train jp j 
^ partition 


10. (uj) = (pJ) 


(Ug )t + operating point. 


11. {u^^) recover 


£0^], iGj,], etc. 


fuj) 


1%*) ■ 


(u" ). lu.) - t«A 


C«J,1 (lu'm 

(%„> = C«,gJ <''g) * <V 


IPglsl = l%nl * Ifg"' 


12, Convergence checks 


^%2>- ^Pgl2>‘ 


Differential Stiffness Checks 


1 . e < . 

E«i t wi th 

a . lUg) , stresses , etc . 


Figure 2. Simplified Solution Algorithm for Stati c Aerothermoel a s tic 

"Design/Analysis” Rigid Format for Axial Flow Compressors includi 
Differential Stiffness Effects, (continued) 
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b. 


Final deformed blade geometry 
* operating point (flow rate, 
speed, loss parameters, etc.) 



ip/) 


♦ operating 


’ pressure ratio and 
other flow poraoteters. 


M2, c > Ej, and adjustment to K“g not necessary. 


Shift to the beginning of Inner Loop with 


^Pgl> = 


M3, e ^ a]^ adjustment to necessary. 


Shift to the beginning of Outer Loop with 




a. (Ug) = {Ug} 


b. iK^g] ^ iKjg] - [6K-g] 




Figure 2. Simplified Solution Algorithm for Static Aerothorrooglastic 

“Design/Analysis" Rigid Format for Asia! Flow Compressors including 
Differential Stiffness Effects, (concluded) 
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THEORETICAL MANUAL UPDATES 


18.3 CYCLIC MO'JAL AND FLUTTER ANALYSES OF AXIAL 

FLOW TURBOMACHINES 

The problem of determining the complete# unstalled 
flutter boundaries of a cyclically symmetric compressor or 
turbine bladed disc involves each member set of the series of 
harmonic families of its modes# and the effects of permissible 
interblade phase angle# over an adequate set of operating 
points (flow rates# speeds# pressure ratios# implied Mach 
numbers, etc,) of the performance map. In view of the large 
number of variables influencing the definition of the flutter 
boundaries# a thorough parametric study requires systematic 
effective solution procedure, 

A capability, therefore, has been introduced in NASTRAN 
which# with repeated exercises over the range of variables 
involved, will enable determination of the flutter boundaries. 
The existing features of NASTRAN for Normal Modes Analysis using 
Cyclic Symmetry (Section 3.16# User's Manual) and Modal Flutter 
Analysis (Section 3.20, User's Manual) have been suitably 
combined for the cyclic modal# flutter and subcritical roots 
analyses in a new Rigid Format 9, Approach AER0. Provision is 
also made to include the differential stiffness effects by 
using the total stiffness matrix saved from the Static Aero- 
thermoelastic Analysis (see Section 18.2), 


jy.s - 


i 

t 


In a compressor or turbine, an operatiing point 
implies an equilibrium of flow properties such as density, 
velocity, Mach number, flow angle, etc., that vary across the 
blade span. Blade properties such as the blade angl stagger 
angle, chord, etc,, also, in general, change from the blade 
root to the tip. The resulting spanwise variation in the local 
reduced frequency and the relative Mach number must be accounted 
for in estimating the chordwise generalized aerodynamic forces 
per unit span at each streamline. Integration of these forces 
over the blade span yields the blade generalized aerodynamic 
force matrix. Since the relative Mach number varies along the 
blade span, two two-dimensional, linearized, harmonic cascade 
theories (Refs. 2 and 3) one each for subsonic and supersonic 
flow have been implemented in a strip theory manner along the 
blade span. The chordwise aerodynamic matrices for streamlines 
with transonic inflow are derived by linear interpolation between 
those on adjacent (subsonic and supersonic) streamlines. 

The generation of the generalized air force matrices 
is an expensive operation and should be judiciously controlled. 

In the present development, the aerodynamic matrices are computed 

at a few reduced frequencies and interblade phase angles, and 
interpolated for others. Additionally, the chordwise generalized 

air force matrices are first computed for *' aerodynami c modes ” 
(heave, pitch, etc.). The matrices for chordwise structure 1 
modes are then determined from bilinear transformations along 
each streamline prior to the spanwise Integration to obtain 
the complete blade generalized aerodynamic matrix. This permits 


a change in the structure 1 mode shapes of the same or a different 


harmonic number to be included in the flutter analysis without 
having to recompute the modal aerodynamic matrices fpr aerodynamic 
modes. 

The following remarks apply to the simplified prob1e(n 
flow shown in Figure 1. In this figure„ a compressor bladed 
disc performance map is showop although the analysis is equally 
applicable to both compressors and turbines. 

1, The geometry and the material properties of 

the bladed disc sector are defined along with the applicable? 
constraints. An operating point is selected near t^he expected 
location of the flutter boundary. The solution procedure examines 
if this operating point is a flutter point. 

2. Flutter parameters such as densitiesp interblade 
phase angles and reduced frequencies are selected, 

3, The chosen operating point implies a certain 
spanwise variation of blade and flow properties. 

4. A harmonic number is selected for the cyclic modal 
analysis. Grid point mass and stiffness matrices are generated. 
The stiffness matrix saved from a previous Static Aerothermo- 
elastic Analysis can be used instead, and woyld include the 
differential stiffness effects at the steady stat? operating 
point under consideration. 


5. Constraints and partitioning yield the analysis 
set mass and stiffness matrices. 

6. Forward cyclic transformation results In the solu= 
tion set mass and stiffness matrices for the cyclic eigenvalue 
problem. 


7. Eigenvalues and eigenvectors in the solution set 
are obtained. 

8. Symmetric components eigenvectors are derived by 
a backward cyclic transformation, 

9. Symmetric components eigenvectors are augmented 
by recovering the dependent components# and are prepared for 
output if desired. 

10. For a non-zero harmonic number# the symmetric 
component eigenvectors are partitioned lo separate the cosine 
and sine components, 

11. Based on the number of modes selected for flutter 
analysis the modal mass matrix is computed. 

12,13. Direct input mass# stiffness and damping matrices# 
if necessary# and the constraints thereon define these matrices 
for further analysis. 

14. The augmented eigenvectors, including any extra 
(or scalar) points introduced for dynamic analysis, are formed 
and used to define the new generalized mass# stiffness and 




damping matrices. 


15. The streamline generalized aerodynamic matrices 
for chordwise aerodynamic modes are generated. The variation 
of the relative Mach number from streamline to streamline 
dictates the use of either of the subsonic and supersonic 
harmonic cascade theories. Such matrices for the streamlines 
with transonic inflow are interpolated. No transonic flow 
theory has been currently included, 

16. The structure 1 modes are introduced via bilinear 
transformations along each streamline to define the chordwise 
generalized air force matrices. 

17. The blade generalized aerodynamic matrix i$ derived 
by a spanwise integration of the chordwise aerodynamic matrices 
for structural modes. 

18-20. The analysis loops through the user-sel ected 
combinations of density, interblade phase angle and reduced 
frequency , 

21. Based on the (o,k) combination, the appropriate 
blade aerodynamic matrix is chosen for the flutter equation. 
Linear or surface interpolation, at user's option, is used if 
necessary . 

22. The generalized mass, stiffness and damping matrices 
of Step 14 and the generalized air force matrix of Step 21 are 
used to define the modal flutter equations. 




23. The solution to the flutter equations is 
sought In the form of complex eigenvalues and eigenvectors, 

24. The velocity-damping and vel oci ty-f requency 
curves output for each (p,<Tpk) group are interpreted ^o 
identify flutter points, 

25. Based on the relative stiffnesses of the blade and 
the hub of the bladed disc sector, a series of harmonic numbers 
are investigated before arriving at the flutter boundaries. 
Presently, the solution rigid format is designed to accept 

one harmonic number at a time. 

The cyclic modal flutter analysis discussed herein 
is illustrated by the example 9-5-1 of the Demonstration 
Problems Manual . 
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1.14 STATIC AEROELASTIC AND FLUTTER MODELING OP AKIAL FLOW 

TURBOMACHINES 
1. II, 1 Introduction 

The NASTRAN aeroelastic and flutter capability has 
been extended to solve a class of problems associated with axial 
flow turbomachines . The capabilities included are? 

1. Steady state aerothermoelastic analysis of 
compressors to determines 

(a) The change in geometry between the design 
point operating shape and the "as manufactured" shape of the 
flexible blade to ensure the required performance (pressure 
ratio, flow rate, rpm) at the design point. (This is termed 
the "design" problem.) 

(b) The performance at off-design operating 
conditions for a given "as manufactured" blade shape. (This is 
termed the "analysis" problem.) 

(c) Displacements, stresses, reactions, plots, 
etc., at selected operating points over the compressor map. 

(d) A differential stiffness matrix due to 
centrifugal and aerodynamic pressure and thermal loads for use 
in subsequent modal analysis. 

2, Modal, unstalled flutter and subcritical roots 
analysis of compressors and turbines. 



The rotor/stator of a single-stage, or each stage 
of a multi-stage compressor or turbine is analysed as an 
isolated structure. Two new Rigid Formats (Displacement 
RF 16 and Aero RF 9) have been developed, one each for the 
aeroelastic steady state and the oscillatory state problems 
(see Sections 3.^1, 3.3.3, 3.34). The rotational cyclic 
symmetry (see Section 1.12} inherent in these gtructuri^*s abo\4t 
the axis of rotation has been taken into account in designing 
the capability, so that only a representative one-blade sector 
need be idealized. 

The steady aerothermoelastic analysis is based on 
the theory described in Volume I of Reference 1. The computer 
code of the same reference (Volume II), with minor changes, 
has been adapted for NASTRAK in the functional module ALG. 

The current NASTRAN Static Analysis with Differential Stiffness 
Rigid Format has been accordingly modified to include the effect 
of centrifugal, aerodynamic pressure and temperature loads. 

The existing features of NASTRAN for Normal Modes 
Analysis using Cyclic Symmetry (Section 3.16) and Modal Flutter 
Analysis (Section 3.20) have been suitably combined for the 
modal flutter and subcritical roots analysis of the axial flow 
turbomachinery rotor/stator. 

These developments are compatible with the general 
structural capability in NASTRAN. The structural part of the 
problem is modeled as described in Section 1 of the User's 
Manual. This section deals with the aerodynamic data pertaining 
to the bladed disc sector. The associated aerodynamic modeling 
is discussed in Section l.H .2. 








Section describes the steady aerothermo'= 

elastic '’design/analysis " formulations. 

Section 1. H =S presents the modal# flutter and 
subcritical roots analyses. 

Saonp9(» problems and their solutions are presented 
in Sections 1.JS.4 and l..|<{.6o 
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. - 1 , 11.2 Aerodynamic Modeling 

' The aerodynamic model is based on a grid generated 

I'- by the intersection of a series of streamlines and '^computing 

stations" (similar to potential lines) as shown in Figuij’e 1. 

-This arrang^ent also facilitates the subsequent use of two- 
dimensional, unsteady, subsonic and supersonic infinite cascade 
theories (see Section I? of the Theoretical Manual) in the 
' flutter problem. They are used in a strip-theory manner on 

the various streamlines spanning the blade. 

The aerodynamic loads are assumed significant only 
“ on the bladed portion of a bladed disc and no other part of 

the structure need be modeled aerodynamically . The data required 
j to generate the aerodynamic model for the steady state aeroelastic 

_ analyses are specified on DTI bulk data cards, and are desoribad 

f 

in Section 1,/H,3.1 of the User’s Manual. Blade streamline 
n data for flutter and subcritical roots analyses are specified 

on STREAMLi bulk data cards. 

The streamlines are defined by the intersection of 
the blade mean surface and a set of coaxial cylindrical (or 
' conical) surfaces. The axis of the cylinders (cones) coincides 

I with the axis of rotation of the turbomachine. The "computing 

stations" lie on the blade mean surface and divide it from 
i the leading edge to the trailing edge. The choice of the number 

i and location of the streamlines and the "computing stations" is 

! 

dictated by the expected variation of the relative flov; 

I properties across the blade span, and the complexity of the 

mode shapes exhibited by this part of the structure. However, 

■ a minimum of three streamlines (including the blndo root and 
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the ti^) and three ”coinputing stations” (Including the |!)lade 
leading edge and the trailing edge) must be specified. 

The distribution of the aerodynamic parameters over 
the blade is, in general, different from that of the structural 
parameters such as stress, strain, etc. Accordingly, the 
aerodynamic model and the structural model of the blade, in 
general, may differ. The difference currently permitted in 
the two models is as seen in Figure i wherein the aerodynamic 
grid is shown to be a part of the structural grid. 

The x-axis of the BASIC coordinate system (Figure l)is c)»osen 
to coincide with the axis of rotation and is oriented in the 
direction of the flow. The location of the origin is arbitrary. 

The z “plane (BASIC) lies normal to the "mean" meridional plane 
passing through the blade, with the z-axis (BASIC) directed 
towards the blade. The aerodynamic grid can be specified in 
any coordinate system (CP). The aerodynamic model data mainly 
related to the bladed disc problems are specified on the DTI, 

STREAMLl and STREAML2 bulk data cards. 




1 . /*# -3 Steady Aerothermoelastic '*Desiqn/Analy3is ** 

An operating point on a compressor map defines a 
distribution of centrifugal force and aerodynamic pressure and 
temperature loads on the bladed“disc of the axial flow turbo- 
machine. The equilibrium, deformed shape of the elastic 
structure is reached at the end of a series of quasi-equilibrium 
states during which the loads on the bladed-disc and its geometric 
stiffness change as a function of the deformatipn. The operating 
point pressure ratio (given the flow rate and the rpm ) , in effect, 
also changes during this process. 

Two different problems can thus be stated? 

1. Given the desired design operating point and 

the "rigid" geometry, to determine the "as manufactured" geometry 
("design" problem) that would produce the design conditions and 

2, Given the "as manufactured" geometry, to deter- 
mine the performance of the flexible blade at off-design operating 
points ("analysis" problem). 

Rigid format Displacement 16 has been developed to 
solve these "design/analysis" problems. The value of the 
PARAMeter SIGN (= +1) selects the analysis or the design mode 
of the rigid format. Deformation of the structure as a result 
of the applied centrifugal and aerodynamic loads is used to 
revise the blade geometry each time through the differential 
stiffness loop of the rigid format. Because of the non-linear 
relationship between the blade geometry and the resulting 
operating point pressure ratio, provision is made to control 
the fraction of the displacements used to redefine the blade 
geometry. This is especially helpful in the solution of the 




"design" problem. The fractions of the displacements used to 
redefine the blade geometry are specified via the FXCOOH, FYCOOR 
and F2COOR parameters. The application of the aerodynamic 
pressure and thermal loads is controlled respectively by the 
parameters APRESS and ATElf^P. These parameters also enable the 
inclusion of the centrifugal loads alone. 

The functional module ALG is used in the rigid format 
before, within and after the differential stiffness loops (see 
Section ) to generate the aerodynamic loads. Printed output 
from this module during these three stages can respectively be 
controlled through the use of the parameters IPRTCI, IPRTCL and 
IPRTCF. This enables observation of the variation in the 
aerodynamic loads as a function of the blade geometry. 

GRID, CTRIA2 and PTR1A2 bulk data cards for the 
final blade shape can be punched out using the parameter PGE0M. 
At the end of a "design" run, these define the "as manufactured" 
blade shape which can subsequently be "analyzed" at selected 
operating points over the compressor map. In an ’analysis” 
run at any operating point, the total stiffness (elastic and 
geometric) of the bladed-disc structure can be saved via the 
parameter KT0UT for use in subsequent modal, modal flutter 
and subcritxcal roots analyses. 

The subsections and 1.1*/. 3. 2 describe 

the aerodynamic Direct Table Input and the output data for 
the steady state analyses. 


i.n-s 


loH.3.1 Aerodynamic DTI Data 

The input data consist of an initial indication 
of the number of entries that are to be made to each of the 
two program sections (analytic meanline blade section and 
aerodynamic section), and then a data-set for each entry to 
each section. The data that are required for the interfacing 
of the output from the analytic meanline blade section to 
the aerodynamic section are included in the data-set for the 
analytic meanline section. Because partial input to the aero°^ 
dynamic section is generated by execution of the analytic mean- 
line section, the input for the aerodynamic section to be 
supplied directly by the user varies. This is indicated in 
the charts below by giving the variable name LOGS for the 
file from which any data are taken that are not always 
supplied directly. 

LOGS is the file from which input is taken that is 
generated by the analytic meanline section. When the analytic 
meanline section has been directed to produce data for the 
aerodynamic section for a particular computing station, LOGS 
becomes an internally generated scratchfile. Otherwise, LOGS 
is attached to the standard input unit and the user supplies 
the data. 

The following input data items must be input qsing 
NASTRAN Direct Table Input fDTI) bulk data cards, A description 
of the DTI card is in the NASTRAN User’s Manualq > 

The table data block name must be ALGDB, The trailer value 
for Tl is the number of logical records in the DTI table, not 




counting the header record. This is the same as the maximum 
value of IREC used in the table. The trailer values for T2 
through T6 are all zero. Each of the following input cards 
corresponds to one logical record of the DTX table. 

Trailing zeroes need not be input. Data types, i.e., aipha- 
numeric (BCD), real and integer, must correspond to those 
specified for each data item. Data item names that begin with 
the letters I,J,K, L,M, and N are to be input as integers while 
all others are input as real numbers. Titles are input ^s 
alphanumeric (BCD) with the restriction that pnly alphabetic 
letters occupy the first character in each field of the DTI 
card. Titles may use up to nine DTI fields. 
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(conto ) 
(cont. ) 


ft 


{cont. ) 
(cont. ) 


1 

NRAD NDPTS NDATR WSWITC NLE NTE 
XKSHPE SPEED 

NOUTl NOUT2 NOUT3 ~ Refers to leading 

edge station 


NR NTERP NMACH NLOSS NLl 
NL2 NEVAL NCURVE NLITER NDEL 
NOUTl NOUT2 N0UT3 NBLAD 
R XLOSS j- Occurs NR times 


Occurs 
for each 
Station 

I within 

blade or 
at trailing 
edge 


RTE 

DM DVFRAC] 


Occurs 

NRAD 


-Occurs NDPTS times 


times 


This gyoup 
is used tp 

feniE^r^^e 
LOGS dat^ 
fo^ the 
aerodynamic 
section 


RDTE DELTAD AC3*Occurs NDATR times 


The following data-set is input to the aerodynamic 
section and the last record in this set is indicated 
with a double asterisk. 


TITLE 3 

CP GASR G EJ 

NSTNS NSTRMS NMAX NFORCE NBL NCASE 
NSPLIT NSETl NSET2 NREAD NPUNCH NPLOT 
NPAGE NTRANS NMIX NMANY NSTPLT NEQN NLE NTE NSIGN 
NWHICH - Occurs NMANY times on the same card 

G EJ SCLFAC TOLNCE VISK SHAPE 

XSCALE PSCALE RLOW PLOW XMMAX RCONST 
CONTR CONMX 

FLOW SPDFAC 

NSPEC I Occurs 

I NSTNS 

XSTN RSTN - Occurs NSPEC times j Times 




(LOGS) 

(cont . ) 

(cont. ) 

(LOGS) 

(LOGS) 

(cont. ) 

(LOGS ) 


NDATA NTERP NDIMEN NMACH 

DATAC DATAl DATA2 DATA3 - Occurs 

NDATA times 



NDATA NTERP NDIMEN NMACH NWORK 


NLOSS NLl NL2 NEVAL NCURVE NLITER 


NDEL NOUTl NOUT2 NOUT3 NBLADE 


SPEED- If NDATA >0 


DATAC DATAl DATA2 DATA3 
DATA5 


DATA4 I 


Occurs 

NDATA 

times 


DATA6 DATA? DATA8 DATA9 


DELC DELTA - Occurs NDEL times 


In^et 

condition 

specification 



fpr 

sta- 

tions 

2 

thru 

NSTNS 


WBLOCK BBLOCK BDIST -Occurs NSTNS times 


NDIF 

DIPF FDHUB FDMID FDTIP -Occurs NDIFF 

times 


Occurs 

nset; 

times 


NM NRAD 
TERAD 

DM WFRAC -Occurs NM times 


“I, 


I Occurs 
NRAD 
times 


NR 

ti 


Occurs 

NSET2 

iTimes 


DELF(l) DELF (2) . . . .DELF (NSTRMS) - ii NSPLIT = 1 

or NREAD 1 


R X XL II JJ 


Occurs NSTRIIS times for NSTNS stations 
if NREAD = 1 




Data Item Defintions; 

The aerodynamic section may be used with any self- 
consistent unit system and, additionally, a "linear dimension 
scaling factor" (SCLFAC) is incorporated into the input so that 
some commonly used but inconsistent unit sytems may be used. 

This is principally intended to allow the use of inches for 
physical dimensions and yet retain feet for velocities. The 
basic dimensions used in the data are length (L) , time (T) , and 
force (F) . Angles are expressed in degrees (A) , and temperatures on 
an absolute temperature scale (D) . Heat capacities (H) are also 
required. Some possible unit systems are given below, togehter with 
the corresponding value of SCLFAC , 


L 

T 

F 


D 

H 

SCLFAC 

Feet 

Seconds 

Pounds 

Deg. 

Rankine 

BTU 

1.0 

Inches 

Seconds 

Pounds 

Deg. 

Rankine 

BTU 

12.0 

Meters 

Seconds 

Kilograms 

Deg. 

Kelvin 

CHU 

»-■ 

o 


Note that 

some data names 

are used in more 

than 

one 


section; care should betaken to consult the correct sub-division 
below for defintions. 

a. Initial Directives 

TITLEl This is a title card for the run. 

NANAL Set NANAL = 1 

NAERO Set NAERO = 1 

b. Analytic Meanline Blade Section 

For a more detailed discussion of the input to 
this section through item XB, see Reference and . For 
this section, the dimensioned input is either in degree (A) 
or in length (L) . 
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-<*y 


TITLE2 


NLINES 


NSTNS 


NZ 


NSPEC 


NPOINT 


NBLADE 

ISTAK 


A title card for the analytic meanline 

section of the program. 

The number of stream surfaces itrhich are 
defined, and on which blade sections 
will be designed. Must satisfy 

2 < NLINES s 21 . 

The number of computing stations at which 
the stream surface radii are specified. 

Must satisfy 3s NSTNS s 10. 

The number of constant-z planes on which 
manufacturing (Cartesian) coordinates 
for the blade are required. Must satisfy 

3 s NZ <15, 

The number of radially disposed points at 
which the parameters of the blade sections 
are specified. Must satisfy is NSPEC s 21. 
The number of points that will be generated 
to specify the pressure and suction surfaces 
of each blade section. Must satisfy 
2< NPOINT <80. Generally, no less than 30 
should be used. 

The number of blades in the blade row. 

If ISTAK =0, the blade will be stacked at 
the leading edge. 

If ISTAK = 1, the blade will be stacked at 
the trailing edge. 


hiH-lS 


IPUNCH 

ISECN 


IFCORD 


IFPLOT 

IPRINT 


If ISTAK = 2 , the blade will be stacked at, 
or offset from, the section centroid. 

Set IPUNCH B 0 

If ISECN = 0, the blade will be constructed 
using the polynomial camber line and the 
standard (i.e., double-cubic) thickness 
distribution. 

If ISECN = 1, the exponential caipber 

line and the standard thickness distribution 

will be used. 

If ISECN = 2, the circular arc camber line 

1 

and the double-circular-arc thickness 
distribution will be used. 

If ISECN = 3, the multiple-circular-arc 
meanline and the standard thickness 
distribution will be used. 

If IFCORD = 0, the meridional projection 
of the stream surface blade section chords 
are specified. 

If IFCORD ® 1, the stream surface blade 
section chords are specified. 

Set IFPLOT = 0 

The input data is always listed by the 
program. Details of the stream surface 
and manufacturing sections are printed 
as prescribed by IPRINT. 


l.tH-lb 


ISPLIT 

INAST 

IRLE 

IRTE 

NSIGN 


If IPRINT = 0, details of the streain 
surface and manufacturing sections are 
printed. 

If IPRINT = 1, details of stream surface 
sections are printed. 

If IPRINT ® 2f details of manufacturing 
sections are printed. 

If IPRINT = 3, details of neither stream 
surface nor manufacturing sections are 
printed. (The interface data for use with 
the aerodynamic section of the program is 
is still displayed.) 

Set ISPLIT = 0 

Set INAST = 0. See the Output Data 
description (Section ) for further 
details. 

The computing station number at the blade 
leading edge. 

The computing station number at the blade 
trailing edge. 

Indicator used to sign blade pressure 
forces according to program sign conven- 
tions. For compressor rotorS / if the 
machine rotates clockwise when viewed 
from the front, set NSIGN to 1; other- 
wise, set NSIGN to -1. For compressor 
stators , the two values given for NSIGN 
are reversed. 




ZINNER, 

ZOUTER 

SCALE 

STACKX 


PLTSZE 

KPTS 


I FANGS 


XSTA 


The NZ manufacturing sections are equi- 
spaced between z equals Z INNER and ZOUTER. 
Set scale = 0.0. 

This is the axial coordinate of the stacking 
axis for the blade / relative to the same 
origin as used for the station locations, 
XSTA, 

Set PLTSZE = 0.0. 

The number of points provided to specify 
the shape of a computing station. 

If KPTS = 1, the computing station is 
upright and linear. 

If KPTS = 2, the computing station is 
linear and either upright or inclined. 

If KPTS >2, a spline curve is fit through 
the points provided to specify the shape 
of the station. 

If IFANGS = 0, the calculations of the 
quantities required for aerodynamic 
analysis will be omitted at a particular 
computing station. 

If IFANGS = 1, these calculations will 
be performed at that station. 

An array of KPTS axial coordinates (relative 
to an arbitrary origin) which, toghter with 
RSTA, specify the shape of a particular 
computing station. 




RSTA 


R 


BLAFOR 

ZR 


B1 

B2 

PP 


An array cf KPTS radii which, together 
with XSTA, specify the shape of a 
particular computing station. 

The stream surface radii at NLINES locations 
at each of the NSTNS stations. 

Set BLAFOR = 0.0. 

The variation of properties of the stream 
surface blade section is specified as a 
function of stream surface number. The 
various quantitites are then interpolated 
(or extrapolated) at each stream surface. 

The stream surfaces are nvunbered con- 
secutively from the inner-most outward, 
starting with 1.0. ZR must increase 
monotonically, there being NSPEC values 
in all. 

The blade inlet angle. 

The blade outlet angle. 

If ISECN = 0, PP is the ratio of the second 
derivative of the camber line at the leading 
edge to its maximum value. Must satisfy 
-2.0 < PP< 1.0. 

If ISECN si, PP is the ratio of the second 
derivative of the camber line at the 
leading edge to its maximum value forward 
of the inflection point. Must satisfy 
0.0 < PP < 1.0. 




QQ 


If ISECN » 2 or 3, PP is superfluous. 

If ISECN ° 0^ QQ is the ratio of the second 
derivative of the camber line at the trailing 
edge to its maximum value.. Must satisfy 
0.0 sQQ <1.0. 

If ISECN = 1, QQ is the ratio of the second 
derivative of the camber line at the trailing 
edge to its maximum value rearward of the 
inflection point. Must satisfy 0.0<QQ.<i.O. 
If ISECN = 2 or 3, QQ is superfluous, 

RLE The ratio of l:3.ade leading edge radius to 

chord . 


TC The ratio of blade maximum thickness to 

chord . 

\ . 

TE The ratio of blade trailing edge half- ! 

I 

thickness to chord, ^ 


If ISECN = 2, TE is superfluous. 

Z The location of the blade maximum thickness, 

as a fraction of camber line length 
from the leading edge, 

I 

If ISECN =2, Z is superfluous. | 

CORD If IFCORD ® 0, CORD is the meridional 

projection of the blade chord. 

If IFCORD = 1, CORD is the chord. 


The stacking axis passes through the stream 

DELY 

surface blade sections, offset from the 
centroids, leading, or trailing edge by DELX 




and DELV in the x and y directions 


S, BS 


NRAD 

NDPTS 

NDATR 

NSWITC 


NLE 

NTE 

XKSHPE 


respectively. 

If ISECN s 1 or 3, S and BS are used to 
specify the locations of the inflection 
point (ac a fraction of the meridionally'^ 
projected chord length) and the change in 
camber a igle from the leading edge to th? 
inflection point. If the absolute value 
of th'j angle at the inflection point is 
larger than the absolute value of Bl^ 

BS should have the same sign as Bl^ 
otherwise, Bl and BS should be of opposite 
signs . 

The number of radii at which a distribution of the 
fraction of trailing edge deviation is input. Must 
satisfy 1 s NRAD s 5. 

The number of points used to define each deviation curve. 
Must satisfy 1 ^ NDPTS fill. 

The number of radii at which an additional deviation angle 
increrr.ent and the point of maximum camber are 
specified. Must satisfy 1 s; NDATR £ 21. 

If NSWITC = 1, the deviation correlation parameter "m" 
for the NACA (Ajq) meanline is used. 

If NSWITC = 2, the deviation correlation parameter "m’’ 
for double-circular-arc blades is used. 

Station number at leading edge. 

Station mmiber at trailing edge. 

The blade shape correction factor in the deviation rule. 




SPEED 

NR 

NTERP 

NMACH 

NLOSS 

NL! 

NL2 

NEVAL 

NCURVE 

NUTER 

NDEL 

NOUTl 

NOUT2 

NO UTS 

NBLAD 

R 

XLOSS 

RTE 


DM 


DVFRAC 

RDTE 


See definition for Aerodynamic Section. 

The number of radii where a "loss" is input. 


See definition for Aerodynamic Section. 


Radius at which loss is specified. 


Loss description. The form is prescribed by NLOSS; 
see aerodynamic section. 

j 

Radius at blade trailing edge where the following deviation ! 
fraction/ chord curve applies. 

t 

i 

If NRAD = 1, it has no significance. Must increase i 

monotonically. | 

The location on the meridional chord where the deviation ; 

fraction is given. Expressed as a fraction of the j 

meridional chord from the leading edge, Must increase 

monotonically. • 

i 

j 

Fraction of trailing -edge deviation that occurs at location 

DM, i 

i 

Radius at trailing edge where additional deviation and | 

point of maximum camber are specified. 1 

1 

J 

£ 

2 

I 

i 

_jg 






DEL TAD 
AC 

c. 

TITLES 

CP 

CASH 

G 

EJ 

NSTNS 

NSTRMS 

NMAX 

NFORCE 

NBL 


Additional deviation angle added to that determined by 
deviation rule. Input positive for conventionally positive 
deviation for both rotors and stators. 

Fraction of blade chord from leading edge where maximum 
camber occurs. 

Aerodynamic Section 

A title card for the aerodynamic section of the program. 

Specific heat at constant pressure. An input valpe of 
zero will be reset to 0. 24. Units: H/F/D. 

Gas constant. An input value of zero will be reset to 
53.32. Units: L/SCLFAC/D. 

Acceleration due to gravity. An input value of zero will 
be reset to 32. 174. Units: L/SCLFAC/T/T. 

Joules equivalent. An input value of zero will be reset 
to 778. 16. Units: LF/SCLFAC/H. 

Number cf computing stations. Must satisfy 3 s NSTNS 
s 30. 

Number of streamlines. Must satisfy 3 £ NSTRMS s 21. 

An inpu- value of zero will be reset to 11. 

Maximum number of passes through the iterative stream- 
line determination procedure. An input value of zero will 
be reset to 40. 

The firs*' NFORCE passes are performed with arbitrary 
numbers inserted should any calculation produce 
impossible values. Thereafter, execution will cease , 
the calculation having "failed”. An input value of zero 
will be reset to 10. 

If NBL = 0, the annulus wall boundary layer blockage 
allowance will be held at the values prescribed by 
WBLOCK. 

If NBL = 1, blockage due to annulus wall boundary layers 
will be recalculated except at station 1 . VISK and 
SHAPE are used in the calculation. 


I.M 'X7 


NCASE 


Set NCASE s 1 


NSPLIT 


NSETl 


NSET2 


NREAD 


NPUNCH 

NPLOT 

NPAGE 


NTRANS 


If NSPLIT = 0, the flow distribution between the stream- 
lines will be determined by the program so that roughly 
uniform increments of coniputing station wjll occur 
between the streamlines at station 1. 

If NSPLIT = 1, the flow distribution between the stre^jn- 
lines is read in (see DELE). 

The blade loss coefficient re-evaluation option (specified 
by NEVAL) requires loss parameter/diffusion factor 
data. NSETl sets of data are input, the set numbers being 
allocated according to the order in which they are input. 

Up to 4 sets may be input (see NDIFF), 

When NLOSS = 4, the loss coefficients at the station are 
determined as a fraction of the value at the trailing edge. 
Then, NSET2 sets of curves are input to define this 
fraction at a function of radius and meridional chord. Up 
to 2 sets may be input (see NM). 

If NREAD = 0, the initial streamline pattern estimate 
is generated by the program. 

If NREAD = I, tlie initial streamline pattern estimate and 
also the DELF values are read in. (See DELF, R, X, 

XL.) 

Set HPUNCH = 0 
Set NPLOT = 0 

The maximum number of lines printed per page. 

An input value of zero will be reset to 60. 

IF NTRANS = 0, no action is taken. 

If NTRANS = 1, relative total pressure loss 
coefficients will be modified to account 
for radial transfer of wakes. See Section 
V.ll, Ref. 






NMIX 


MMANY 


NSTPLT 


NEQN 


If NfllX = 0, no action is takon. 

If NMIX = 1, entropy, angular momentum, 
and total enthalpy distributions will 
be modified to account for turbulent 
mixing. See Section V.12,. Ref, 

The number of computing stations for 
which blade descriptive data is being 
generated by the analytic meanline 
section. 

If NSTPLT = 0, no action is taken. 

If NSTPLT == 1, a line-printer plot of th^ 
changes made to the midstreamline 
coordinate is made for each computing 
station. If more than 59 passes through 
the iterative procedure have been made, then 
the plots will show the changes for the 
last 59 passes. The graph should decay approxi- 
mately exponentially towards zero, indicating 
that the streamline locations are stabilizing. 
Decaying oscillations are equally acceptable, 
but, growing oscillations show the need for 
heavier damping in the streamline relocation 
calculations, that is, a decrease in RCONST. 

This item controls the selection of the 
form of momentxim equation that vill be used 
to compute the meridional velocity distri- 
butions at each computing station. There are 
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two basic forms, and for each case, one 
may select not to compute the terms 
relating to blade forces. (See also 
Section V. 1, Ref. 

If NEQN = 0, the momentum equation involves 
the differential form of the continuity 
equations and hence ) terms in the 

denominator. Streamwise gradients of 
entropy and angular momentum (blade forces) 
are computed within blades and at the blade 
edges (provided data that describe the 
blades are given). Elsewhere, streamwise 
entropy gradients only are included in a 
simpler form of the momentum equation, 
except that at the first and last computing 
station, all streamwise gradients are taken 
to be zero. This is generally the preferred 
option when computing stations are located 
within the blade rows. 

If NEQN = 1, the momentum equation form is 
similar to that used when NEQN = 0, but 
angular momentum gradients (blade force 
terms) are nowhere computed. This generally 
is the preferred option when computing 
stations are located at the blade edges only. 
If NEQN = 2, the momentum equation includes 
an explicit dVm/dm term instead of the (1-M^ ) 




NLE 

NTE 

NSIGN 



NWHICH 


SCLFAC 


TOLNCE 


denominator terms. All streamwise 
gradients (including blade force terms) 
are computed as for the case NEQN = 0, 

When computing stations are located within 
the blade rows, the results will generally 
be similar to those obtained with NEQN = 0, 
and solutions may be found that cannot be 
computed with NEQN = 0 due to high meridional 
Mach numbers. 

If NEQN = 3, the momentum equation is similar 
to that used when NEQN = 1, but (as for the 
case NEQN =1) no angular momentum gradients 
are computed. This may be used when computing 
stations are located only at the blade edges 
and high meridional Mach numbers preclude the 
use of NEQN = 1 . 

See the Analytic Section, 

The numbers of each of the computing stations 
for which blade descriptive data is being 
generated by the analytic meanline section. 
Linear dimension scale factor , see page 
An input value of zei'o will be reset to 
12 . 0 . 

Basic tolerance in iterative calculation 
scheme. An input value of zero will be 
reset to 0.001, (See discussion of 
tolerance scheme in Section VI, Ref, . ) 




VISK 


SHAPE 


XSCALE 
P SCALE 
RLOW 
PLOW 
XMMAX 


RCONST 


CONTR 

CONMX 


Kinematic viscosity of gas tfor annulus 
wall boundary layer calculations) , An input 
value of zero will be reset to 0.00018. 

Units s LL/SCLFAC/SCLPAC/T. 

Shape factor for annulus wall boundary 
layer calculations. An input value of 
zero will be reset to 0.7, 


Set each equal to 0.0, 

The square of the Mach number that appears 
in the equation for the streamline relocation 
relaxation factor is limited to be not greater 
than XMMAX. Thus, at computing stations where 
the appropriate Mach number is high enough 
for the limit to be imposed, a decrease in 
XMMAX corresponds to an increase in damping. 

If a value of zero is input, it is reset 
to 0.6. 

The constant in the equation for the streamline relocation 
relaxation factor. The value of 8.0 that the analysis yields 
is often too high for stability. If zero is input, It Is reset 
to 6. 0. 

The constant in the blade wake radial transfer calculations. 

The eddy viscosity for the turbulent mixing calculations. 
Units; L^/SCLFAC^/T. 




FLOW 


SPDFAC 


NSPEC 


XSTN, RSTN 


NDATA 


NTERP 


NDIMEN 


NMA CH 


DA TAG 


Compressor flow rate. Units: F/T. 

The speed of rotation of each computing station is SPDFAC 
times SPEED (I). The units for the product are revolutions/ 
(60xT). 

The number of points used to define a computing station. 
Must satisfy 2 S N5PEC s 21, and also the sum of NSPEC 
for all stations £ 150. If 2 points are used, the station is 
a straight line. Otherwise, a spline-curve is fitted 
through the given points. 

The axial and radial coordinates, respectively, of a point 
defining a computing station. The first point must be on 
the hub and the last point must be on the casing. Units: L. 

Number of points defining conditions or blade geometry at 
a computing station. Must satisfy 0 s NDATA s 21, and 
also the sum of NDATA for all stations s 100. 

If NTERP = 0, and NDATA a 3, interpolation of the data 
at the station is by spline-fit. 

If NTERP = 1 (or NDATA £ 2), interpolation is linear 
point-to-point. 

If NDIMEN = 0, the data arc input as a function of radius. 

If NDIMEN = 1, the data are input as a function of radius 
normalized with respect to tip radius. 

If NDIMEN = 2, the data are input as a function of distance 
along the computing station from the hub. 

If NDIMEN = 3, the data are input as a function of 
distance along the computing station normalized with 
respect to the total computing station length. 

If NMACH = 0, the subsonic solution to the continuity 
equation is sought. 

If NMACH = 1, the supersonic solution to the continuity 
equation is sought. This should only be used at stations 
where the relative flow angle is specified, that is, 

NWORK = 5, 6, or 7. 

The coordinate on the computing station, defined according 
to NDIMEN, where the following data items apply* Must 
increase m.onotonically. For dimensional cases, units are 

L. 




DATAl 


DATA 2 


At Station 1 and if NWORK = 1, DATAl is 
total pre:^sure. Units; F/L/L. 

If NWORK = 0 and the station is at a blade 
leading edge, by setting NDATA ^ 0, the blade 
leading edge may be described. Then pATAl is 
the blade angle measured in the cylindrical 
plane. Generally negative for a rotor, 
positive for a stator. (Define the blade 
lean angle (DATA3) also) . Units: A. 

If NWORK = 2, DATAl is total enthalpy. 

Units: H/F. 

If NWORK = 3, DATAl is angular momentum (radius times 
absolute whirl velocity). Unitsr LL/SCLFAC/T. 

If NWORK = 4, DATAl is absolute whirl velocity. Units: 
L/SCLFAC/T. 

If NWORK = 5, DATAl is blade angle measured in the 
streair. surface plane. Generally negative for a rotor, 
positive for a stator. If zero deviation is input, it becomes 
the relative flow angle. Units: A. 

If NWORK = 6. DATAl is the blade angle measured in the 
cylindrical plane. Generally negative for a rotor, positive 
for a stator. If zero deviation is input, it becomes, after 
correction for streamsurface orientation and station lean 
angle, the relative flow angle. Units; A, 

If NWORK = 7, DATAl is the reference relative outlet 
flow angle measured in the streariisurface plane. Generally 
negative for a rotor, positive for a stator. Units: A. 

At Station I, DATA2 is total temperature. Units: D. 

If NLiC^SS = 1, DATA2 is the relative total pressure loss 
coefficient. The relative total pressure loss is measured 
from the station that is NLl stations removed fftim the 
current station, NI..1 being negative to indicate an 
upstream station. The relative dynamic head is determined 
NL2 stations removed from the current station, positive 
for a downstream station, negative for an i^pstfeauti station, 
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If NLOSS = Z, DATA2 is the iscntropiq efficiency of 
compression relative to conditions NLJ stations rempvcd, 
NLil being negative to indicate an upstream station. 


DATA 3 

DATA 4 
DATA 5 

DATA 6 

DATA? 
DATA 8 


If NLOSS = 3, DATA2 is the entropy rise relative to the 
value NLl stations removed, NLl being negative to 
indicate an upstream station. Units: I-f/F/D. 

If NLOSS = 4, DATA2 is not used, but a relative total 
pressure loss coefficient is determined from the trailing 
edge value and curve set number NCURVE of the NSCT2 
families of curves. NLl and NL2 apply as for NLOSS = 1. 

If NWORK = 7, DATA 2 is the reference (minimum) 
relative total pressure loss coefficient. NLl and NL2 
apply as for NLOSS = 1. 

' The blade lean l^gle ineasured trom the projection of a 
radial line in the plane of the computing station, positive 
when the innermost portion of the blade precedes the 
outermost in the direction of rotor rotation. Units: A. 

The fraction of the periphery that is blocked by the presence 
of the blades. 

Cascade solidity. When a number of stat;ons are used to 
describe the flow through a blade, values are on^y required 
at the trailing edge, (They are used in ths loss coefficient 
re-estiniation procedure, and to evaluate diffusion factors 
for the output. ) 

If NWORK = 5 or 6, DATA6 is the devia tion angle 
measured in the streoin surface plane. Generally negative 
(or a ^tor, positive for a stator. Units: A. 

If NWORK = 7, DATA6 is reference relative inlet angle, 
to which the minimum loss coefficient (DATA2) and the 
reference relative outlet angle (DATA?) correspond. 
Measured in the streamsurface plane and generally 
negative for a rotor, positive for a stator. Units; A, 

If NWORK = 7, DATA? is the rate of change of relative 
outlet angle with relative inlet angle. 

If NWORK - 7, DATA8 is the relative inlet angle larger 
than the reference value at which the loss coefficient attains 
twice its reference value. Measured in the strean, surface 
plane. Units: A. 




mwr.. .T .. 


DATA 9 


NWORK 


WLOSS 


If NWORK = 7, DATA9 is the relative inlet angle smaller 
than the reference value at which the loss coefficient attains 
twice its reference value. Measured In the stroamsurface 
plane. Units; A. 

If NWORK = 0, constant entropy, angular momentum, and 
total enthalpy exist along streamlines from the previous 
station. (If NMIX = 1, the distributions will be modified.) 

If NWORK = 1, the total pressure distribution at the com- 
jjuting station is specified. Use for rotors only. 

If NWORK = 2, the total enthalpy distribution at the com* 
puting station is specified. Use for rotors only. 

If NWORK = 3, the absolute angular momentum distrfbution 
at the computing station is specified. 

If NWORK = 4, the absolute whirl velocity distribution at 
the computing station is specified. 

If NWORK = 5, the relative flow angle distribution at the 
station is specified by giving blade angles and deviation 
angles, both measured in the streamsurface plane. 

If NWORK =5 6, the relative flow angle distribution at th® 
station is specified by giving the blade angles measured 
in the cylindrical plane, and the deviation angles measured 
in the streamsurface plane. 

If NWORK = 7, the relative flow angle and relative total 
pressure loss coefficient distributions are specified by 
means of an off-design analysis procedure. "Reference'*, 
•'stalling", and "choking" relative inlet angles are 
specified. The minimum loss coefficient varies para- 
bolically with the relative inlet angle so that it is twice 
the minimum value at the "stalling" or "choking" values. 

A maximum value of 0. 5 is imposed. "Reference" 
relative outlet angles and the rate of change of outlet 
angle with inlet angle are specified, and the relative 
outlet angle varies linearly from the reference value 
with the relative inlet angle. NLOSS should be set to zero. 

If NLOSS = 1, the relative total pressure loss coefficient 
distribution is specified. 

If NLOSS = 2, the isentropic efficiency (for coni press ion) 
distribution is specified. 

If NLO.SS = 3, the entropy rise distribution is spec ified. 
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NLl 


NL2 


NEVAL 


NCURVE 


If NLOSS = 4, the total pressure loss coeffipiept distribution 
is specified by use of curve-set NCURVE of the NSET2 
families of curves giving the fraction of final (trailing 
edge) loss coefficient. 

The station from which the loss(in whatever form NLpSS 
specifies) is measured, is NLl stations removed from the 
station being evaluated. NLl is negative to indicate an 
upstream station. 

When a relative total pressure loss coefficient is i^scd to 
specify losses, the relative dynaiTiic head is tak^n NL2 
stations removed from the station being evaluated. NL2 
may be positive, zero, or negative; a positive value 
indicates a downstream station, a negative value indicates 
an upstream station. 

If NEVAL = 0, no action is taken. 

If NEVAL > 0, curve-set nuiriber NEVAL of the NSETl 
families of curve giving diffusion loss parameter as a 
function of diffusion factor will be used to re-estimate 
the relative total pressure loss coefficient. NLOSS must 
be 1, and NLl and NL2 must specify the leading edge of 
the blade. See also NOEL. 

If NEVAL 0, curve-set number NEVAL is used as 
NAVAL 0, except that the re-estimation is only 
made after the overall computation is completed 
(with the input losses) . The resulting loss 
coefficients are displayed but not incorporated 
into the overall calculation. See also NDEL. 

When NLOSS » 4, curve-set NCURVE of the NSET2 
families of curves, specifying the fraction of 
trailing-edge ;pss coefficient as a function 
of meridional chord is used. 




NLITER 


NDEL 


NOUTl 

NOUT2 

NOUT3 


When NEVAL > 0, up to NLITER re-estiraat ions 
of the loss coefficient will be made at a 
given station during any one pass through 
the overall iterative procedure. Less than 
NLITER re-estimations will be ma^e i^ t^t|c 
velocity profile is unchanged by re^es^i^at- 
ing the loss coefficients. (See discussion 
of tolerance scheme in Section VI, Ref .) 
When NEVAL = 0, set NDEL to 0. Wh^n 
NEVAL f 0, and NDEL>0, a component of the 
re-estimated loss coefficient is a shock 
loss. The relative inlet Mach number is 
expanded (or compressed) through a 
Prandtl-Meyer expansion on the suction 
surface, and NDEL is the number of points 
at which the Prandtl-Meyer angle is given. 

If NDEL = 0, the shock loss is set at zero. 
Must satisfy 0< NDEL S. 21, and also the sum 
of NDEL for all stations < 100 . 

Set NOUTl = 0 
Set NOUT2 = 0 

This data item controls the generation of 
NASTRAN - compatible temper atjure and 
pressure difference output for use in 
subsequent blade stress analyses. For 
details of the triangular mesh that is 
used, see the Output Description in 
Section 


NBLADE 


N0UT3 = XYf where 

If X B the station is at a blade 
leading edge. 

If X = 2, the station is at a blade 
trailing edge. 

If Y = 0, then both temperature and 
pressure data will be generated. 

If Y = 1, then only pressure data will 
be generated. 

If Y = 2, then only temperature data 
will be generated. 

If N0UT3 = 0, the station may be between 
blade rows, or within a blade row for 
which output is required, depending upon 
the use of N0UT3 ^ 0 elsewhere. See 
also description of NBLADE below . 

This item is used in determining the 
pressure difference across the blade. The 
number of blades is ! NBLADE | . If NBLADE 
is positive, "three-point averaging" is 
used to determine the pressure difference 
across each blade element. If NBLADE is 
negative, "four point averaging" is used. 

(See the Output Description in Section I ) 

If NBLADE is input as zero, a value of +10 
is used. At a leading edge, the value for 
the following station is used; elsewhere the 
value at a station applies to the interval 




SPEED 


DELr 


DELTA 


WBLOCK 


upstrearo o£ the station. Thus by varying 
the sign of NBLADE, the averaging method 
used for the pressure forces may be varied 
for different axial segments of a blade 
row. 

This card is omitted if MDATA = 0. The 
speed of rotation of the blade. At a blade 
leading edge, it should be set to zero. 

The produCtf SPDFAC times SPEED has units of 
revolutions/ (T x 60). 

The coordinate at which Prandtl=Meyer 
expansion angles are given. It defines 
the angle as a function of the dimensions 
of the leading edge station, in the manner 
specified by NDIMEN for the current, that 
is trailing edge station. Must increase 
monotonically . For dimensional cases, 
units are L. 

The Prandtl-Meyer expansion angles. A positive value 
implies expansion. If blade angles are given the leading 
edge, the incidence angles are added to the value specifie d 
by DELTA. Units; A. (Slade angles are measured in 
the cylindrical plane.) 

A blockage factor that is incorporated into the continuity 
equation to account for annulus wall boundary layers. It 
is expressed as the fraction of total area at the computing 
station that is blocked. If NBL = 1, values (except at 
Stat’on 1) are revised during computation, involving data 
items VISK and SHAPE. 


BBLOCK, 

BDIST 


NDIFF 

DIFF 

FDHUB 

FDMID 

FDTIP 

NM 

NRAD 

TERAD 


DM 


WFRAC 


A blockage factor is incorpox'atcd into the continuity 
equation that may be used to account for blade wakes or 
other effects. It varies linearly with distance along the 
computing station. EBLOCK is the value at mid-station 
(expressed as the fraction of the periphery bluckcd). and 
BDIST is the ratio of the value on the hub to the mid- 
value. 

When NSETls* 0, there are NDIFF pojnts defining loss 
diffusion parameter as a function of diffusion factor. 

Must satisfy 1 ^ NDIFF s 15. 

The diffusion factor at which loss parcimeters are specified. 
Must increase monotonicaliy. 

Diffusion loss parameter at 10 per cent of the radial blade 
height. 

Diffusion loss parameter at 50 per cent of the radial blade 
height. 

Diffusion loss parameter at 90 per cent of the radial blade 
height. 

When NSET2> 0, there are NM points defining the fraction 
of trailing edge loss coefficient as a function of meridional 
chord. Must satisfy 1 s NM £ 1!. 

The number of radial locations where NM loss fraction/ 
chord points are given. Must sati.sfy 1 s NRAD £ 5. 

The fraction of radial blade height at the 
trailing edge where the following loss fraction/ 
chord curve applies. If NRAD =1, it has no 
significance. 

The location on the meridional chord where 
the loss fraction is given. Expressed as a 
fraction of meridional chord from the leading 
edge. Must increase monotonicaliy. 

Fraction of trailing edge loss coefficient 
that occurs at location DM. 




DELF 


R 


X 


XL 


II, JJ 


The fraction of the total flow that is to 
occur between the hub and each streamline. 
The hub and casing '*re included, so that 
the first value must .3 0.0, and tha last 
(NSTRM) value must be 1 . 0., 

Estimated streamline radius. (These data 
are input from hub to tip for the first 
station, from hub to tip for the second 
station, and so on-) Units? U. 

Estimated axial coordinate- at intersection 
of streamline with computing station. 
Units; L, 

Estimated distance along computing statiqn 
from hub to intersection of streamline 
with computing station. Units; L. 

Station and streamline number. These 
are merely read in and printed out to 
give a check on the order of the cards. 
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AERODYNAMIC OUTPUT DATA 


1. ANALYTIC MEANLINE SECTION 

Printed output may be considered to consist of four se^tion^; a print- 
out o£ the input data, details of the blade sections on each streamsurtace, a 
listing of quantities required for aerodynamic analysis, and details of the 
manufacturing sections determined on the conslant-z planes. These are 
briefly described below. In the explanation which follows, parenthetical 
statements are understood to refer to the particular case of the double - 
circular -arc blade (ISECN = 2), 

The input data printout includes all quantities read in, and is self- 
explanato ry. 

Details of the strcamsurface blade sections are printed if IPRINT = 

0 or 1. Listed first are the parameters defining the blade section. These 
are interpolated at the stream surf.=tce from the tables read in. Then follow 
details of the blade section in "normalized" form. The blade section geometry 
is given for the section specified, except that the meridional projection of 
the chord is unity. For this section of the output, the coordinate origin is 
the blade leading edge. The following quantities are given: blade chord; 
stagger angle; camber angle; section area; location of the cent. oid of the 
s&ction; second moments of area of the section about the centroid; orienta- 
tion of the principal axes; and the principal second moments of area of the 
section about the centroid. Then are listed the coordinates of the camber 
line, the camber line angle, the section thickness, and the coordinates of 
the blade surfaces, NPOINT values are given. 

A lineprinter plot of the normalized section follows. The scales for 
the plot are arranged so that the section just fills the page, so that the 
scales will generally differ from one plot to another. "Dimensional" details 
of the blade section are given next. The nornialized data given previously is 
scaled to give a blade section as defined by IFCORD and CORD, For this 
section of the output, the coordinates are with respect to the blade stacking 
axis. The following quantities are given: blade chord; radius and location 
of center of leading (and trailing) edge(s); section area, the second moments 
of area of the section about the centroid and the principal second moments 
of area of the section about the centroid. The coordinates of NPOINT points 
on the blade surfaces are then listed, followed by the coordinates of 31 
points distributed at (roughly) six degree intervals around the leading (and 
trailing) edges. Finally, the coordinates of the blade surfaces and points 
around the leading (and trailing) edge(s) is (arc) shown in Cartesian form. 




The quantities required for aerodynamic analysis are printed at all 
computing stations specified by the IFANGS paranjeter . The radius, blade 
section angle, blade lean angle, blade blockage, and relative angular 
location of the camber line are printed at each stream surface intersection 
with the particular computing station. The blade section angle is measured 
in the cylindrical plane, and the blade lean angle is measured in the constant- 
axial -coordinate plane. 

Details of the manufacturing sections are printed if IPRINT = 0 or 2. 

At each value of z specified by ZINNER, ZOUTER, and NZ, section 
properties and coordinates are given. The origin for the coordinates is the 
blade stacking axis. The following quantities are given: section area; the 
location of the centroid of the section; the second moments of area of the 
section about the centroid; the principal second moments of area of the 
section about the centroid; the orientation of the principal axes; and the 
section torsional constant. Then the coordinates of NPOINT points on the 
blade section surfaces are listed, follov/ed by 31 points around the leading 
(and trailing) edge(s). 

If NAERO = 1, the additional input and output required for, and 
generated by, the interface are also printed. (Apart from the input data 
printout, this is the only printed output when IPRINT = 3. ) 

If the NASTRAN parameter PGEOM ^ -1 then cards are punched 
that may be used as input for the NASTRAN stress analysis program. 
For the purpose of stress analysis, the blade is divided into a 
number of triangular elements, each defined by three grid points. 
The intersections between computing stations and streamsurfaces 
are used as the grid points and the grid points and element number 
ing scheme adopted is illustrated in Figure 1. 

TheNASTRAN input data format includes cards identified by 
the codes GRID, CTR1A2 and PTRIA2. The data are fully described 
in Reference 7, but briefly, the GRID cards each define a grid 
point number and give the coordinates at the grid point, the 
CTRIA2 cards each define an element in terms of the three 
appropriate grid points (by number, and in a significant order) , 
the PTRIA2 cards each give an average blade thickness for an 
element. 
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Figure 1. NASTRAN Grid Point and Element Numbering 
Scheme. 

2. AERODYNAMIC SECTION 

a. Regular Printed Output 

The input data are first printed out in its entirety, and the results 
for each running point follow. The output is generally self-explanatory and 
definitions are given here for some derived quantities. Tabular output is 
generally not started on a page unless it can be completed on the same page, 
according to the maximum number of lines permitted by the input variable 
NPAGE. 


The results of each running point are given under a heading 
giving the running point number. Any diagnostics generated during the 
calculation will appear first under the heading. (Diagnostics are described 
in the following section. ) Then, a station-by-station print out follows for 
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each station through to the last station, or to the station where the calcu- 
lation failed, if this occurred. One or more diagnostics will indicate the 
reason for the failure, in this event. Included in the meshpoint coordinate 
data is the distance along the computing station from the hub to the inter- 
ception of the strean-.line with the station (L), and the station lean angle 
(GAMA). Where the radius of curvature of a streamline is shown as zero, 
the streamline has no curvature. The whi:jl angle is defined by 


Qn o( 



( 1 ) 


i: 

r 


For stations within a blade, or at a blade trailing edge, a rel- 
ative total pressure loss coefficient is shown. The loss of relative total 
pressure is computed from the station defined by the input variable NLl. If 
a loss coefficient was used in the input for the station (NLOSS = 1 or 4, or 
NWORK = 7), the input variable NL2 defines the station where the normalizing 
relative dynamic head is taken; otherwise, it is taken at the station defined 
by NLl. If the cascade solidity is given as anything but zero, it is used in 
the determination of diffusion factors. The following definition is used; 
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Inlet conditions (subscript 1) are taken from the station 
defined bv the input variable NLl. 

The last term in Equation 2 is multiplied by -1 if the blade 
speed is greater than zero, or the blade speed is zero and the preceding 
rotating blade row has negative rotation. This is necessary because 
relative whirl angles are (generally) negative for rotor blades and for 
stator blades that follow a rotor having "negative” wheel speed. Incidence 
and deviation angles are treated in the same way, so that positive and 
negative values have their conventional significance for all blades. 

If annulus wall boundary layer computations were made (NBL 
= 1), details are shown for each station. Then, an overall result is given, 
including a statement of the number of passes that have been performed and 
whether the calculation is converged, unconverged, or failed. When the 
calculation is unconverged, the number of mesh^pflints where the meridional 
velocity component has not remained constant to within the specified 








tolerance (TOLMCE) on the last two passes is shown as IVFAIL. 
Similarily, the number of streantubes, defined by the hub and 
each streamline in turn, where the fraction of the flov^ is not 
within the same tolerance of the target value is shown as 
IPFAIL. If these numbers are small, say less than 10% of the 
maximum possible values, the results may generally be usedo 
Otherwise, the computation should be rerun, eithe?: .for a 
greater number of passes, or with modified relaxation factor 
constants. The default option relaxation constants will 
generally be satisfactory but may need modification for some 
cases. If insufficient damping is specified by the constants, 
the streamlines generated will tend to oscillate and this 
may be detected by observing a relatively small radius of 
curvature for the mid-passage streamline that also chai>ges 
sign from one station to the next. This may be corrected by 
rerunning the problem (from scratch) with a lower value input 
for RCONST, say, of 4.0 instead of 6.0. When the damping is 
excessive, the velocities will tend to remain constant w)iile 
the streamlines will not adjust rapidly to the correct locations. 
This will be indicated by a small IVFAIL and a relatively lar^e 
IFFAIL. For optimum program performance, RCONST should be 
increased, and the streamline pattern generated thus far could 
be used as a starting point. The second constant XMMAX (the 
maximim value of the square of Mach number used in the relaxation 
factor) is incorporated so that in high subsonic or supersonic 
cases the damping does not decrease unacceptably. The default 
value of 0,6 may be. too low for rapid program convergence in 
some such cases. 

If the generation of blade pressure load data for the 
NASTRAN program is specified (by the input variable NOUT3), a 
self-explanatory printout is also made. The blade element 
numbering scheme is the same as that incorporated into both 
bladirg sections of the program, and illustrated in Figure 1. 




If the loss coefficient re-estinriation routine has been used for 
any bladerow(s) (NEVAL ^ 0), a printout smnmarizing the computations 
made will follow. A heading indicating whether the re-estimation was 
incorporated into the overall iterative procedure or whether it was merely 
made "after the event" is first printed. Then follows a self-explanatory 
tabulation of various quantities involved in the redetermination of the loss 
coefficient on each streamline. 

b. Diagnostic Printed Output 

The various diagnostic messages that may be produced by the 
aerodynamic section of the program are all shown. Where a computed value 
will occur, "x" is shown here. 

JOB STOPPED - TOO MUCH INPUT DATA 

The above rriessage will occur if the sun', of NSPEC or NDATA 
or NDEL for all stations is above the permitted limit. Execution ceases. 

STATIC ENTHALPY BELOW LIMIT AT xxx. xxx.xxE.xxx 

The output routine (subroutine UD0311) calculates static 
enthalpy at each rrieshpoint when computing the various output parameters s^nd 
this message will occur if a value below the limit (HMIN) occurs. The limiting 
value will be used, and the results printed become correspondingly arbitrary. 
HMIN is set in the Program UD03AR and should be maintained at some 
positive value well below any value that will be validly encountered in 
calculation. 


PASSxxx STATIC Nxxx STREAMLlNExxx PRANDTL-ME YER 
FUNCTION NOT CONVERGED - USE INLET MACH NO 

The loss coefficient re -estimation procedure involves iteratively 
solving for the Mach number in the Prandtl-Meyer function, If the calculation 
does not converge in 20 attempts, the above message is printed, and as 
indicated, the Mach number following the expansion (or comprcssio/i) is 
assumed to equal the inlet value. (The routine only prints output following 
the completion of all computations and printing of the station-by-sta|Tion 
output data. ) 

PASSxxx STATICNxxx ITERATIONxxx STREAMLlNExxx 
MERIDIONAL VELOCITY UNCONVERGED VM = xx. xxxxxxExx 
VM(OLD) = XX. xxxxxxExx 


For "analysis" cases, that is at stations where relative flow 
angle is specified, the calculation of meridional velocity proceeds 
iteratively at each meshpoint from the mid-streamline to the case and then 
to the hub. The variable LPMAX (set to 10 in Subroutines UD0308 and 
UD0326 ) limits the maximum number of Iterations that may be made at a 
streamline without the velocity being converged before the calculation 
proceeds to the next streainline. The above message will occur if all iter- 
ations are used without achieving convergence, and the pass number is 
greater than NFORCE. Convergence is here defined as occurring when the 
velocity repeats to within TOLNCE/5. 0, applied nondimensionally. No 
other program action occurs. 

PASSxxx STATIONxxx MOMENTUM AND/OR CONTINUITY 
UNCONVERGED W/W SPEC = xx. xxxxx VM/VM (OLD) HUB = 

XX. xxxxxMID=xx. xxxxx TIP = xx. xxxxx 

If, following completion of all ITMAX iterations permitted 
for the flow rate or meridional velocity, the simultaneous solution of the 
momentum and continuity equations profile is unconverged, and the pass 
number is greater than NFORCE, the above message occurs. Here con- 
verged means that the flow rate equals the specified value, and the 
meridional velocity repeats, to within TOLNCE/5. 0, applied nondimension- 
ally. If loss coefficient re -estimation is specified (NEVAL> 0), an 
additional iteration is involved, and the tolerance is halved. No further 
program action occurs. 

PASSxxx STATIONxxx VM PROFILE NOT CONVERGED WITH 
LOSS RECALC VM NEW/VM PREV HUB = xx. xxxxxx MID = 

XX. xxxxxx CASE = XX. xxxxxx 

When loss re -estimation is specified (NEVAL> 0), up to 
NLITER solutions to the momentum and continuity equations are completed, 
each with a revised loss coefficient variation. If, when the pass number is 
greater than NFORCE, the velocity profile is not converged after the 
NLITER cycles of calculation have been performed, the above message is 
issued. For convergence, the meridional velocities must repeat to within 
TOLNCE/5.0, applied nondimensionally. No further prograrri action occurs. 

A further check on the convergence of this procedure is to 
compare the loss coefficients used on the final pass of calculation, and thus 
shown in the station-by-station results, with those shown in the output from 
the loss coefficient re-estimation routine, which are computed from the 
final velocities, etc. 


PASSxxx STATIC Nxxx ITERATIONxxx STREAMTUBExxx STATIC 
ENTHALPY BELOW LI^/lIT IN MOMENTUM EQUATION AT 
XXX. xxxxxExxx 

The static enthalpy is calculated (to find the static temperature) 
during computation of the "design" case rriomentum equation, that is, when 
whirl velocity is specified. If a value lower than HMIN (see discussion of 
second diagnostic niessage) is produced, the limiting value is inserted, (f 
this occurs when IPASS > NFORCE, the above message is printed. If this 
occurs on the final iteration, the calculation is deemed to have failed, 
calculation ceases, and results are printed out through to this station. 

PASSxxx STATIC Nxxx ITERATIONxxx STREAMTUBExxx LOOP;<xx 
STATIC H IN MOMENTUM EQUN. BELOW LIMIT AT xxx. xxxxxExxx 

This corresponds to the previous message, but for the 
"analysis" case. For failure, it must occur on the final iteration and loop. 

PASSxxx STATIONxxx ITERATIONxxx STREAMTUBExxx 
MERIDIONAL MACH NUMBER ABOVE LIMIT AT xxx. xxxxxExx 

When Subroutine UD0308 is selected (NEQN = 0 or 1), the 
meridional Mach nuir,ber is calculated during computation of the design 
momentum equation, and a maximum value of 0. 99 is permitted. If a 
higher value is calculated, the limiting value is i.'xserted. If this occurs 
when IPASS > NFORCE, the above message is printed. If this occurs on 
the final iteration, the calculation is deemed to have failed, calculation 
ceases, and results are printed through to this station. 

PASSxxx STATIONxxx ITERATIONxxx STREAMTUBExxx LOOPxx?< 
MERIDIONAL MACH NUMBER ABOVE LIMIT AT xxx. xxxxxExxx 

This corresponds to the previous message, but for the "analysis" 
case. For failure, it must occur at the final iteration and loop. 

PASSxxx STATIONxxx ITERATIONxxx STREAMTUBExxx 
MOMENTUM EQUATION EXPONENT ABOVE LI^^IIT AT xxx. xxxxxExxx 

An expf.nomtiation is performed during the computation of the 
design case momentum equation, and the maximum value of the exponent is 
lur.ited to 88.0. If this substitution is required when IPASS > NFORCE. 
the above message is printed. If it occurs on the final iteration, the calcu- 
lation is deemed to have failed, calculation ceases, and results are printed 
through to this station. 
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PASSxxx STATIONxxx ITERATIONSxxx STREAMLINExxx 
(MERIDIONAL VELOCITY) SQUARED BELOW LIMIT AT 
XXX. xxxxxExxx. 

If a meridional velocity, squared, of less than 1. 0 is calcu- 
lated during computation of the design-case momentum equation, this limit 
is imposed. If this occurs when IPASS>NFORCE, the above message is 
printed. If this occurs on the final iteration, the calculation is deen*-ed to 
have failed, calculation ceases, and results are printed oqt through to this 
station. 

PASSxxx STATIONxxx ITERATIONxxx STREAMLINExxx LOOPxxx 
(MERIDIONAL VELOCITY) SQUARED BELOW LIMIT AT 
XXX. xxxxxExxx. 

This corresponds to the previous message, but fpr the 
"analysis" case. For failure, it must occur on the last iteration and loop. 

PASSxxx STATIONxxx ITERATIONxxx STREAMTUBExxx 
STATIC ENTHALPY BELOW LIMIT IN CONTINUITY EQUATION 
AT XXX. xxxxxExxx. 

The static enthalpy is calculated during computation of the 
continuity equation. If a value lower than HMIN (see discussion of second 
diagnostic message) is produced, the lin'.iting value is imposed. If this 
occurs when IPASS>NFORCE, the above message is printed. If this 
occurs on the final iteration, the calculation is deemed to have failed, 
calculation ceases, and results are printed out through to this station. 

PASSxxx STATIONxx ITERATIONxxx STREAMLINExx.v 
MERIDIONAL VELOCITY BELOW LIMIT IN CONTINUITY ,\T 
XXX. xxxx.xExxx. 

If a meridional velocity of less than 1. 0 is calculated when the 
velocity profile is incremented by the aiviount estiniated to be required to 
satisfy continuity, this limit is imposed. If this occurs when IPASS ^ 
NFORCE, the above message is printed. If this occurs on the final iteration, 
the calculation is deemed to have failed, calculation ceases, and results are 
printed through to this station. 

PASSX.XX STATIONx.xx ITERA TIONx.xx OTHER CONTINUITY 
EQUATION BRANCH REQUIRED 

If when IPASS>NFORCE , a velocity profile is produced that 
corresponds to a subsonic solution to the continuity equation when a super- 
sonic solution is required, or vice versa, the above message is printed. If 
this occurs on the final iteration, failure is deemed to have occurred, calcu- 
lation ceases, and results are printed out through to this station. 




PASSxxx STATIONxxx ITERATIONxxx STREAMLENExxx 
MERIDIONAL VELOCITY GREATER THAN TWICE MID VALUE 


During integration of the "design" momentum equations, 
no meridional velocity is permitted to be greater than twic^ the value on 
the mid-streamline. If this occurs when IPASS>NFORCE, the above 
rnessage is printed. If this occurs on the final iteration, the calculation 
is deerr,ed to have failed, calculation ceases, and results arc printed 
through to this station. In the event that this limit interferes with 4 
velocity profile, the constants that appear on cards $08$. 272, $08$, 279, 

$26$. 229. and $26$. 236 may be modified accordingly. Note that as the 
calculation is at this point working with the square of the meridional 
velocity, the constant for a lunit of 2.0 tirr.es the mid-streamline value, 
for instance, appears as 4.0. 

PASSxxx STATIONxxx ITERATIONxxx STREAMLINExxx 
LOOPxxx MERIDIONAL VELOCITY A BO VE LIMIT xxxxxExx 
LIMIT = xxxxxExx. 

During integration of the "analysis" momentum equations, no 
meridional velocity is permitted to be greater than three times the value 
on the mid-streamline. If this occurs when IPASS>NFORCE, the above 
message is printed. If this occurs on the final loop of the final iteration, 
the calculation is deemed to have failed, calculation ceases, and results 
are printed through to this station. In the event that the limit interferes 
with a valid velocity profile, the constants that appear on cards 
$08$. 398, $08$. 409. $26$. 323, $26$. 334, and $26$. 3 29 may be modified 
accordingly. In each case except that of the last card noted, the program 
is working with meridional velocity squared, so that a lirr.it of, for instance, 
3.0 times the mid-streamline value appears as 9.0.. 

PASSxxx STATIONxxx STREAMLINExxx LIMITING MERIDIONAL 
VELOCITY SQUARED = xxxxxExx. 

In the Subroutine UD0308 (NEQN= 0 or 1), a maximum 
permissable meridional velocity (equal to the speed of sound) is established 
for each streamline at the beginning of each pass. The calculation yields 
the square of the velocity, and if a value of less than 1. 0 is obtained, a 
value of 6250000.0 is superimposed (which corresponds to a meridional 
velocity of 2500.0). If this' occurs when IPASS >NFORCE, the above message 
is printed, and the calculation is deemed to have failed. Calculation ceases 
after the station computations are made, and results are printed through 
to this station. 
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PASSxxx STATIONxxx ITERATIONxxx STREAMLlNEx^x 
MERIDIONAL VELOCITY ABOVE SOUND SPEED VM = 

XXXX. XX A = XX XX. XX. 

In Subroutine UD0308 (NEQN = 0 or I), no n;eridionat vc.-ocity 
is permitted to be larger than the speed of sound. The above message 
occur if this limit is violated during integration of the "design" n. omentum 
when IPASS > NFORCE. If the limit is violated at any point when SPASS?> 
NFORCE and on the last permitted iteration (last permitted loop also in 
the case of the "analysis" momentum equation), the calculation is deenrted 
to have failed. Calculation ceases, and the results are printed through to 
this station. 


MIXING CALCULATION FAILURE. NO. n 

The above message occurs when flow mixing calculations are 
specified, and the computation fails. The overall calculation is halted, and 
results are printed through to the station that is the upstream boundary ;or 
the mixing interval in which the failure occurred. The integer n takes 
different values to indicate the specific problems as fpllows. 

n = 1 In solving for the static pressure distribution at the upstrea^i 

boundary of each mixing step, the average static enthalpy 
determined in each streamtube (defined by an adjacent pair 
of streamlines). This failure indicates that a value less than 
HMIN was determined. 

n = 2 Calculation of the static pressure distribution at the upstream 

boundary of the mixing step is iterative. This failure indicates 
that the procedure was not converged after 10 iterations. 

n = 3 The static enthalpy on each streamline at the mixing step 

upstream boundary is determined from the static pressure 
and entropy there. This failure indicates that a value less 
than HMIN was determined. 

n = 4 The axial velocity distribution at the n.ixing step upstrean'. 

boundary is determined from the total enthalpy, ^tatje enthalpy, 
and tangential velocity distributiqns. This failure indicates 
that a value less than VMIN was determined. 

n = 5 In solving for the static pressure distribution at the downstrearn 

boundary of each mixing step, the average static enthalpy is 
determined in each streamtube (defined by an adjacent pair 
of streamlines). This failure indicates that a value less than 
HMIN was determined. 




II = 6 Calculjition of the static pressure distribution at the dowiv 

stream boundary of the mixing step is iterative. This failure 
indicates that the procedure was not converged after iO 
iterations. 

n = 7 The static enthalpy distribution at the mixing step downst^^^^ 

boundary is found from the total enthalpy, axial velocity, and 
tangential velocity distributions. This failure indicates that 
a value less than HMIN was determined. 

n = 8 In order to satisfy continuity, the static pressure level at the 

mixing step downstream boundary is iteratively determine^* 

This failure indicates that after 15 attempts, the procedure 
was unconverged. 

Co Aerodynamic Load and Temperature Output 

Four output options may result in cards being produced 
by the aerodynamic section of the program. Use of the input item 
N0UT3 gives "PLOAD2 and Temperature - Cards" punched in a format 
compatible with the NASTRAN stress program. For the purposes of 
stress analysis, the blade is taken to be composed of a number of 
triangular elements. Two such elements are formed by the quadrilateral 
defined by two adjacent streamlines and two adjacent computing stations. 
The way that each quadrilateral is divided into two triangles, and 
the element numbering scheme that is used, are illustrated in 
Figure 1, The pressure difference foz‘ each element is given by 
an average of either three or four values at surrounding mesh- 
points. The pressure difference at each meshpoint is computed 
from the equation 

and as follows. At the blade leading edge a forward difference is 
used to determine the meridional gradients. At the blade trailing 
edge the pressure difference is taken to be zero. At stations 
with the bladerow (following a leading edge) , mean central 
differences are used to determine the meridional gradients. When 
the input item NBLADE is positive (or zero) for a particular 


blade axial segment, then three-point averaging is used. For 
instance, for element number 1 in Figure 1, pressure differences 
at grid points 1, 6, and 7 would be used. If NBLAOE is negative, 
four-point averaging is used. For instance for element niunbcr 1, 
pressure differences at grid points 1,2,6 and- 7 wpuld be used. 
The same average would also apply to element number 2, llelative 
total temperatures are output at the grid points on the blade. 

A TEMPD value is also output using the average temperature at 
the blade root for the grid points on the rest of the structure. 
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1 , 0 4 Sample Problem 

The Static Aerothermoelastlc Oes Ign/Analysis procedure 
for the bladed disc of an axial flow compressor rot^r 
illustrated by this sample problem. As explained in Section 
1.11.3 the Design and Analysis steps are carried out only at 
the design operating point of the compressor bladed disc = the 
"as manufactured" structure being only "analyzed" at off-^design 
operating points. The Design gr_ Analysis mode of the Displace- 
ment Rigid Format 16 is selected by the PARAMETER SIGN. The 
present example uses the Design mode (SIGN = =1) of the rigid 
format. 

The finite element model of a sector of th|S bla<ied 
disc is shown In Figure 1, The blade grid is specified in the 
Basic coordinate system located on the axis of rotation as shown 
in the figure. The hub is specified ir. a cylindrical coordinate 
system with the origin and the z-axis respectively coincident 
with the origin and the x-axis of the Basic system, A schematic 
of the aerodynamic model used is shown in Figure 2 wherein the 
aerodynamic mesh is generated by the intersection of 4 streamlines 
and 5 computing stations, three of which lie on the blade. Two 
additional computing stations have been used for the aerodynamic 
section (see Section l.l^i.S.l), one each upstream and downstream 
of the blade to enable flow description in these regions. The 
NASTRAN deck for the use of the rigid format is listed in Figure 3 
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Figure 1 . 


Finite Element Model of an Axial Flow Compressor 
Bladed Disc Sector,, and the Basic Coordinate Systefn 
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T.tie Executive Control Deck consists of cards from ID 
to CEND, S0L 16 and APP Displacement are used for the Steady 
Aerothermoelastic Design/Analysis problem. CPU time (in minutes) 
is estimated on the TIME card. DIA6 (optional) is used to 
request diagnostic output. 

The Case Control Deck is used to seleqt the boundary 
conditions imposed on, and the loads applied to the sti^ucture. 

The extent and the form of the output desired i$ also selected 
in this deck. In this problem, SPC set 500 is used to restrain 
the hub-shaft attachment degrees of freedom from moving in the 
axial and tangential direction. MPC set 600 is used to define 
the blade-hub attachment snd the relative motion of the corres- 
ponding grid points on the two sides of the cyclic sector. 

Two subcases must be defined for this rigid format. Subcase 1 
is for the linear solution based on the elastic stiffness while 
Subcase 2 solution includes the differential stiffness effects. 

The 0UTPUT (PL0T) packet requests the plots, and is explained 
in Section 4. of the User's Manual. 

The blade is idealized by 12 CTRIA2 plate elements 
while 4 CHEXAl solid elements are used tp model the hub. The 
aerodynamic data describing the blade geometry (blade angle, 
chords, stagger angles etc.) and the operating conditions (flow 
rate, speed, losses etc.) are specified in t(ie AL60B data block 
input, via the DTI bulk data cards. The gepmetry, material and 
constraint bulk data are as discussed in previous sections of this 
manual. Parameters APRESS = 1 and ATEMP = 1 enable the inclusion 
of the aerodynamic pressure and thermal loads, FXCCI0R, FYC00R 

)■' 


and FZC(90R parameters each equal to 0o3 Indicate thatp In 
this design example# three tenths of the displacements obtained 
{both linear and non-linear) are used to redefine the blade 
geometry. Parameters IPRTCF = 1 and IPRTCI = 1 are used for 
a detailed printout from the ALG module upon final and initial 
entries. IPRTCL = 0 requests a summary from the ALG module 
during the differential stiffness loop (see Section 18 of the 
Theoretical Manual). PGE0M = 3 causes the GRID# CTRIA2# PTRIA2 
and DTI bulk data cards to be punched out during the final pass 
through the ALG module. These cards represent the final blade 
geometry and the operating conditions. Parameter STREAML = -1 
suppresses the output of STREAMLl and STREAML2 bulk data cards# 
while 20RIGN = 0 only is currently permitted. STREAMLl cards 
identify the grid points defining the blade. 

Results are presented in the Demonstration Problems 

Manual . 




1. . 5 


Modal, Flutter & Subcritical Roots Analyse s 

Cyclic symmetric flow is assumed while analysing the 
turbomachinery rotor/stator « Due to rotational cyclic symmetry, 
only onC“bladed disc sector is modeled. The harmonic number 
dependent cyclic normal modal analysis of such structures is 
described in Section 1.12 of the User’s Manual. In the present 
development, the results of the normal modes analysis using 
cyclic symmetry have been appropriately integrated with unsteady 
cascade aerodynamic theories and the existing k~method of modal 
flutter analysis. The Mach number parameter has been conven- 
iently replaced by the interblade phase angle parameter for 
blade flutter problems. The discussion that follows is to 
bring out the features pertinent to bladed disc analysis. 

In a compressor or turbine, an operating point 
implies an equilibrium of flow properties such as density, velocity, 
Mach number, flow angle, etc., that vary across the blade span. 

Blade properties like the blade angles, stagger angle, chord, etc., 
also, in general, change from the blade root to the tip. The 
resulting spanwise variation in the local reduced frequency and 
the relative Mach number must be accounted for in estimating 
the chordwise generalized aerodynamic forces per unit span at 
each streamline. Integration of these forces over the blade 
span yields the blade generalized aerodynamic force matrix. 

In order to nondimens ionalize this matrix, the flow and blade 
properties at a referenced streamline are used. The reference 
streamline number, IREP, is specified on a PARAM bulk data card. 

Since the relative Mach number varies along the blade 
span, necessitating the use of either the subsonic or supersonic 
cascade theories, parameters MAXMACH and MII'IMACH are used 
respectively to specify the upper and lower limits below and above 
which the subsonic and supersonic unsteady cascade theories are 
applicable. For streamlines with relative Mach numbers between 
the limits r/lAXMACH and .MINMACH, linear interpolation is used. 

No transonic cascade theories have been incorporated. 


jiw-feV 


c: -5L. 


It should be noted that for a given interblade phase 
angle and reference reduced frequency; chordwise generalised 
aerodynamic matrices corresponding to local spacing; stagger 
and Mach number at the selected operating point will be generated 
for each streamline on the bladeo This is an easpensiya operation 
and should be carefully controlled to reduce the eo|nputatiopal 
worko The aerodynamic matrices are; therefore; computed at a 
few interblade phase angles and reduced frequencies; 
and interpolated for others » These parameters are selecf;ed on 
the MKAEROl and MKhER02 bulk data cards. Matrix interpolation 
is an automatic feature of Rigid Format Aero 9. Additional 
aerodynamic matrices may be generated and appended to the previous 
group on restart with new MKAEROl cards ; provided the of the 

data used for the matrix calculation remain unaltered. 

To save further computational time, the chordwise 
generalized aerodynamic matrices are first computed for 
"aerodynamic modes" (see the Theoretical Manual, Section!? ). 

The aerodynamic matrices for chordwise structural modes are 
then determined from bilinear transformations along each 
streamline prior to the spanwise integration to obtain the 
complete blade genera.i ized aerodynamic matrix. This permits 
a change in the structural mode shapes of the same or a 
different harmonic number to be included in the flutter analysis 
without having to recompute the modal aerodynamic matrices for 
aerodynamic modes. This can be achieved by appropriate ALTERS 
to the Rigid Format. 

For non-zero harmonic numbers, the normal modes 
analysis using cyclic symmetry results in both "sine" and 
"cosine" mode shapes (Section 1.12). The BCD value of the 
parameter MTYPE on a PARAI4 bulk data card selects the type of 
mode shapes to be used in flutter calculations. It is ixmnaterial 
which is selected. 

The method of flutter analysis is specified on the 
FLUTTER bulk data card. The FLUTTER card is selected by an 
PMETH0D card. At the present time, only the k°method of flutter 
analysis is available. This allows looping tlirough three ^et^s 




of pasrameterss density fatio ^ 0 f given on 

cas'd); intesblade phase angle (^) ; and seduced fsi^quency« (^>) 

Fos exaniple^ if the uses specifies two values of each, there 
will be eight loops in the following osdeso 

DEWS SFREQ 

11 1 

2 1 1 

1 1 2 

2 1 2 

12 1 

2 2 1 

12 2 

2 2 2 

Values for the parameters are listed on FZ«FACT bulk date cards. 
Usually# one or two of the parameters will have only a single 
value. 

A parameter VREF may be used to scale the output 
velocity. This can be used to convert from consistent units 
(e.g.# in/sec) to any units the user may dSiSire (e.g.# mph) # 
determined from = V/Vp^p. Another use of this parameter 

is to compute flutter index# by choosing Vj^^p = 

If physical output (grid point deflections or elemei^t 
forces# plots# etc.) is desired rather than modal amplitudes# 
this data recovery can be made upon a user selected subsat of 
the cases. The selection is based upon the velocity; the method 
is discussed in Section 3.23.3. 




USER'S MANUAL UPDATES 


1 , ,6 Satiiple Problem 

The problem of determining the complet®o unstalled 

t 

flutter boundaries of a compressor or turbine bladed disc 
Involves each member set of an appropriate whole series of 
harmonic families of modes of the cyclically symmetric bladed 
discss and effects of Interblade phase anglOg over an adequate 
set of operating points (flow rateso speedsg pressure ratios# 
Implied Mach numbers# etc.)« This sample problemg therefore# 

Is only to Illustrate the procedure to obtain typical data 
leading to the definition of flutter boundaries. 

The finite element model of the compressor bladed 
disc sector Is shown In Figure 1. The aerodynamic model (see 
Section l.i‘f.2) with 4 streamlines and 3 computing stations 1$ 
shown In Figure 2. The first four of the zeroth harmonic 
family of natural modes and frequencies are chosen for flutter 
Investigation via the PARAMeters LM0DES = 4 and KINOEX = 0. 
Operating point conditions of 73.15 lb m/sec flow rate# 

16043 rpm# and 1.84 total pressure ratio are selected so as to 
demonstrate the use of the total stiffness matrix# for cyclic 
modal analysis# saved from the Static Aerothermoel asti c Analysis 
at this operating point (see Demonstration Manual examples 9°S°1 
and 16=1). For this# the Parameter KGGIN Is set equal to 1. 

The k-method of flutter analysis Is used which is the only 
method currently permitted. The NASTRAN deck used Is listed In 
Figure 3. 


The Executive Control Decks cards ID through CEMDo 
selects the Cyclic Modal Flutter Analysis Rigid Format via 
the S0L 9 and APR AER0 cards. An estimated CPU TIME of 
20 minutes is indicated for this example. The DIAG 14 card 
if optional and lists the Rigid Format, 

The Case Contro' Deck is used to select constraintso 
methods and output. In this' problems SPC set SOO is used to 
constrain the hub°shaft attachment degrees of freedom to move 
only in the radial direction. iiPC set 600 is used to define 
the blade°hub connection. A METH0D card roust select an EI6R 
bulk data card for real eigenvalue analysis. An FMETH0O card 
must be used to select a FLUTTER data card for flutter analysis. 
A CMETH0D card must select an EIGC data card for complex 
eigenvalue extraction. For a flutter summary printouts the 
parameter PRINT is set to YESB. The XYPAPERPL0T request shown 
will plot V-g and V=f split frame "plots” on the printer output. 
To produce plots» it is necessary to specify a plotter, request 
a plot tape, and specify XYPAPERPL0T VG. The "curves” refer 
to the loops of the flutter analysis, and in this example the 
9 loops have been arranged with 3 loops to each frame. 

The blade and the hub are respectively modeled by 
12 CTRIA2 and 4 CHEXA1 elements. The geometry, material and 
constraint bulk data are as discussed ^n previous sections of 
this manuals and there are no special rules for aeroelastic 
flutter analysis. CYJ0IN data card specifies the pairs of 
correspondi ng grid points on the two sides of the cyclic sector, 
INV method of real eigenvalue extraction is selected on an EIGR 
card wherein five mode shapes and frequencies are requested. 


Of these> the first four (Parameter LM0OES ° 4) modes are used 
to form the modal flutter equations. The AER0 buU data card 
is used to specify the reference chord and reference density. 

For bladed disc flutter analysis^ the other two parameters on 
the AER0 card are of no significance. The MKAER01 data card 
causes the aerodynamic matrices to be computed for three inter® 
blade phase angle-reduced frequency pairsp i.e. (r= 180®, 
k = 0.3)» (180®8 0.7) and (180®, 1,0). 

The FLUTTER bulk data card selects the presently 
permitted k-method of flutter analysis and refers to the FLFACT 
cards specifying density ratios. Interblade phase angles, and 
reduced frequencies. The analysis loops through all combinations 
of densities, interblade phase angles and reduced frequencies, 
with density on the inner loop and interblade phase angle on 
the outermost loop. In this example, 3 density ratios, 1 inter- 
blade phase angle and 3 reduced frequencies (on FLFACT cards) 
result in (3 X 1 X 3 ») 9 loops. Both linear and surface splines 
are available for interpolation of aerodynamic matrices to 
intermediate values of interblade phase angle and reduced 
frequency. The EIGC card is required and the HESS method is 
used. The number of complex eigenvectors to be extracted must 
be specified, and will usually agree with the number of modes 
saved for output specified on the FLUTTER data card. 

For bladed discs, STREAMLl and STREAML2 data cards are 
required. The grid points on each streamline on the blade are 
identified on the STREAMLl card. The flow and blade geometry 
is specified for each streamline on the STREAML2 cards. It 
should be noted that at least 3 streamlines per blade (including 




the root and the tip) and 3 grid points per streamline must he 
selected for cyclic modal flutter analysis. 

Results are presented In the Demonstration Problems 

Manual . 


I 

1 

L 

I 


I 


j.ts -7^ 






ORIQINAL PAGE ?8 
OF POOR QUALHY 






£ 




3 


<S{ 




««» 


& 






M 

v: tt. 
< ttJ 


a» 


»> ««■ 

w 


M* 



U< p U 


^ ft 

-3 r «T 2 » 


C ft 

t J 


e- «l 

!/•(■• U W 






CRIQiWftt 

OF POOR QUAUT^ 


0 

m 


lii 

U 

«J 


</) OJ 


Vt O' 

> a 

-• f- 

o 

lb 


u. 

o 

o 

CO 

c» 


o 


<n 


j 

■j 

j 

h 

I 

o 

0 


a a 

tr, 

fc- ar 
o u 


O t/i 
UD tli 
O 4-1 

3 

O u.* 

O 15 
X «a 
«<5 H 
v: 

Cl I 





o 


f\f 

V 


U. il. 

« a 

O id 




a u. 

o o 


\tt> 

< 


o ^ ^ 



«o 

•5 t5 3 


a 

a 

~J K ^ 


0m 


e » u. 


u. u. 

U. 

i/f 


1 ^ 

a 

» o 


> o >• tr 

e 

«/) UJ <>• 


• 1 ii.> w 


““ _4 K 

S a «/) 
)w 3 <a 

~» >4 _) 

>« Ul 


> o «• -< 

►- ;>■ !•• V 
^ 

C' o t* C' 

— u a: ui > 

< lij c o 

o 

^ «J «T tt 


5/1 p/ m 

O fvj 

D l« • ( .' U. 1- 


<4 P u> 


^ > C 


^ <4 P 

O t.> 11 

«J > II II «j 

mj 

lU 

e> o tt 

<!>»'« Q 

o 

a ^ p c 

lA O 

« UtLMft' 

c 

t- 


n ^ ^ u« 


U# » 3. 

(1 0 r* ^ 

^ pj »- 0 


»j ►" ui ^- 

z. &•• 

o a D»« «PH 


(>• <r s II- 

qj ^ U- 

t/> ^ a* 1- a 

td 

o* 3 <i; X 

& a u > 

•-*3*-l'(r:> 

iij 

t- V) 

i-^ d* SC o 

C C w >. > « 

CT 


^ ^ M4 ^ 9 ^ cc o ••• rv> ri ir> 

^ ^ ^ pi^ 





I 

i 

I 

I 

I 


3 

aj 

et 

►- 

Z 


or;g<na«. pagc b 
OF POOR QUALITY 




i/* 

> 

q: 

Z 








o 

o 





ra 

es4 


fvj 

(ft *? 




z 

X 

X X 

o 

c*o 


u 

u 

u u 

u 


m 


ta> 

lal till 

(J) 

«a9 





lA 

<0 



o . 





(« fts 





ts^ 


e 

O 

9 





etfH «M) 




0 

0 


mi 



o 








o 

ca 













X 


m 

O 

P'4 

00 

o 





tn 





M 

<M 

o 

o 

9 





O <9 



VJ 

& 

CH4 

mi 


w 

o 





P*4 eaj 

mi 


Ui 




























•a 


09 

ft- 

o 

A- 

o 





pn m 





O 

o 

AJ 

AJ 

0 





A4 AJ 



1- 

0 





mi 





p4 p»4 

tn 


«a 














u 

«4I 
















in 


in 

a 





P> 0* 





o 

o 

AP 

Ai 

t 




O *-( 1-9 ftj <-5 •*< 



IC 

0 


■14 



O (ft (ft 


8 

8 

9 

■4 p4 ^ 

mi 

a 


_l 













AJ 


p 











o 

<A 

-> 












0 



o 











O 

A* 

IT 


m 


m 


o 





mi p. 

o 

At 


« o 

Q 

Al 

fM 

D 




••4 AJ 

o w 

« 

■4 


0 ^ 

mH 


■4 


O (ft (VI <0 

(ft a (ft V> *0 

■4 C9 «s4 O* »94 ^ 

ftl 

0 

O 

CO 














lA 













u. 

^ O' 











o 

P> 













9 

A 

1- 

00 


00 


00 

O 





iM A. « 

o 

■4 


« 

c 

o 

AJ 

AJ 

e 0 





AJ AJ < 

<“> 

«>4 

et 

0 



■4 

^4 

O ^ iM *4 fV AJ 

(( 

5 

5 

7 

7 

8 
8 

p-< a. 

ftl 

0 

O 

0 


























kO 

(ft 













■4 


w 





O O u( 

in o o Hi m 

U O (ft (ft 

V) 


CA 


m 

o 

CP^ 

«) 

A. 

p» o o 

O ft-4 

v4 

■4 «4 

(VI M (VI (VI 

m 

> 

lA 


0 


i— t 

c> 

O 

1 (TJ O O O o O 

o o 

o o o o 

w 

z 

O 


0 «>4 


a4 ft 4 

^4 ^ 

p4 •-« 

Ai A/ AJ 

(VI ftl (*t 

IX (M (VI IVI (VI ftl 

X 

c— » 

0 


tfA ^ ' 


rsi m ts\ 9^^ m %p tsa ^ ^ ^ 

c-« O ^ Ol «U Ol 4>9 ^ ^ 
f*» 9^ 


— ^ V< »•• • a* y 

P»UP*'fOtUCJOtNU>OUW‘ff'l?a>r^ 

O pa ^ »A «? P* P» a 0 g< o» 3^ 

4p0fi0 090 0DO0&3^W* 1^ 


T| 


'S' na ^ *S) «Ci 

o ■>$’ w m [ft 

03 <W '37 >° UU ft* U >7 ■'i 04 <} t** <•■ 

D*ft o fffvfti O0iA^ 4 0 jtf; •-* 

oooo^<vQO<ft^nft> o 

II oil o°l ofllj) »«i 7 

4 ft> 


^ 'O ft* ft* o 

ft* ft: (ft ,ft (ft (ft W 

(fti>tfeaft*Qft* ><}ci(ftlMftlO(A 

05O®ft*e>0'^(ftO(ftO»ftft* 
oOlft 0 »ft* □ o(ft 0 
OQ«OOft*0'ft<aOf5'ft 0 
>1 soil °ll «ll OlM 


0 u 



(«g ft* (ft *f *ft (ft 
O -p O O o ftj 

(M ■-< (VI ■-* ft« 


rjo 0«-l<M0O<if O 0«alM0 

•*(^0'-(ftJlft'ftlft>(>ft*aiift**<<'aM**((M'M *aa •*Pftllft(fti^(M(v<^<ft'Oft>l>IV*M. >-)a4>*0 




r 






c» 



^ 1/* 

P* 

9- 

< 0 

.3 

U o' 

«•! Ui 

«.i 

<r 3 

R' ^ 


<4 o 



u w 

E ^ 

U 


k 

A- 

m 



«4 





h CK 

Ul 


^ 0' 

f • 


V «4 

ta 



I 

I «M 


I I I I I I I 
»P «v *u 7* (W W> ft5 


• I t I I 
I (VI (11 -ft (ft <o 


ll|l|l|lllll•l(•l|»■ll((•l■>l«(>l; 
ift<OP*-o'Cfto»a(M(ft*ft>ft<iiP»ttO>o^(Mift*vtftiOft»eu{i*o*4<M(ft'ft(ft'9P*a 
t.4^_(^tM(vrM<vi<MIMi*l(ViM(Vj<M(’liftft'*(ftF'l(**fftft>ft'ft*'ftvft*7<P'ft'ft*P*ft'f 


I < I I I I I I I I I I I 1 I ( I I I I 


<o to 




i 



ORIGJNAL PAGE fS 
OF POOR QUALITY 




o 

mJ 

0.1 


oJ 



p4 

CL 


a 

ot 








3 



t/l 

(A 

1/1 

(A 

<a 


0 

Ul 

U9 

U9 

4MI 

o: 


e 





t~ 



fM 

e 

m 

iMft 





*4 

CD 

o 

■a 


O' 


M> 


fM 

z 



O' 

'A 


O' 



GO 00 O CD 

<o 



in 



fV} O CV) CM 

o 

O 

o 

o 



0 *<4 014 (*4 ^ 

0 

^ e 

9 

0 

O' 


0 



<41 

<i 





OO 



O' 






CM 


c 

GO 

CO 


m 

CM 




<0 


V* 

O 


X 

O' 

in 

fn 

f.4 

tn 



CM O *■» <N 

«o 


0 

0 


o 

0 ^ ^ ^ 

0 

0 

fti4 




0 






Ui 




O 


>- 



p*- 


p4 

tO 

<1 



^4 


o 

o 




<M 


o 

in 



lA tn p- m 

CD 

O 

^4 

MT 



<M o 

in 

CD 

ft 

0 


t- 

O ^ »4 ^ ^ 

0 

0 





0 






<3 


o 

#n 

o 





CM 

i/\ 

n# 

O' 




sr 


M/ 

r* 




00 

'O 

r* 

CM 



<r ^ ^ 

O' 

o 

u 




fsi o ^ rv 

9 

0 

Q 

0 



0 ^4 **4 v4 ^4 ^4 

<n 


CO 

O' 



O 








o 

•fl* 

a 

00 




o 



tss 





o 


V 




CA 



<J 


er> 

iA m 

h- 

00 

00 

OO 



•CM O O CM 

CM 0 

ft 

ft 

0 




C* ^ M 


«w4 

ft4 


o 

0 











CO 


Ui 


c 

fn 

O' 

fM 





in 

M3 

o 



<p 4 -J fA — « 

K 

ft 

e 

0 



fvr o A* 

a 



fM 


& 


CD -4 fSI 

<M 


M) 



c 





f*> 


h- 


o 

n. 







fM 


O 


03 

CD 


m 

fO 




>> 





O 







ft 


0 


0 

0 




•O M3 O 





m 


O 

O 

U.' 


n 

m cA lA m 


o 



in 


•o 


4A C* 


• f\' 

^f >f nT 


h- 1-4 f*' 


n 


1*1 


m 

•— < 


g 










in ^ 






o 


CM 


^4 

M> 

> ff 






ft 


0 


ft 

o 

•j 


M 




O' 


•f 


C|1 

CM 

tO nr 






«4 




OO 

O' 



fy 

o o c? o 





O 


m 

m 



O 

O O o c 





f<4 


^4 

0-ft 

C 


• iC 

tn m m in ^ 

n» 

3 

1 


M 






i/> 









-J 



-J «J 



(M 


m 

-3 

<o 

•— u 









ST 

y 

y 

r r 


T 


y 


y 

►- 

c c 



*4 






«- 


< 


•1 

tei 


<3 


«J mJ 

4f 


1/: 




«4 

m4 

^4 

^4 

u 

o* 


U* fij 

L, 

n» 

a 

U! 

ff 

U.' o 

C) 

o ^ 




d d 

V.* 

c 

d 

nr 

a 

fV 

A Of 


fy' f- 

iT 


or 9- 

o 

lu (? 

m 



a 

& 

c. 

a 

a 


1- 

K 

►- ♦- 

cn 

>- 

in 

h- 


t- m 


^ — ■- 

>- 


ft 

4^ I/' 4/i 

i/1 !/• 

l/^ 

m 


lA i/f 


tr 

u 

«/> 

o. 

i/* ii5 

li^ 





















C CM 




















Cr C 





















< 



















iflUi 




















d 




















r ^ 

I# 



















Ul 9* 

► 















‘ 




C 

F- 


H 

1 

I 

1 

1 

f 

1 

1 

» 

1 1 

1 

1 

1 

1 

1 

1 1 


\ 

:o 

u 

• ft 

.nft 

fM 



m 

•n f*» 

CO 

O 

«4 

fM 

fn 


in 

MJ h* 


mJ kli 


0' 


o 

O 

O O <3 

o 

o 

u 

CJ ft4 

-4 

*■4 

#4 

44 

44 

1-4 04 


O ^ 


«4 

u 


•iM* 



M4 

04 


<*>4 



#•4 

#4 

.4 

44 

44 p-4 


d 


d O 


















PRECEDING PAGE BLANK NOT FILMEiy 


EXECUTIVE CONTROL DECK 

Executive Control Card - Solution Number Selection 
Description ; Selects the solution number which defines the Rigid Format. 
Format and Examplefs) ; 

» 1 a' [ “] I 

S0L S 
S0L 1,6 
S0L 1.6, 7, 8, 9 
S0L STEATV STATE 


ORIGfN/01 PAGS ts 
OF POOR QUAUry 


Option Meaning 

K1 Solution number of Rigid Format (see Remarks below and Section 3). 

1<2 Subset numbers for solution Kl» default value = 0. 

A Name of Rigid Format (see Remarks below). 


Remarks : 1. When a Direct Matrix Abstraction Program (DMAP) is not used, the solution Is manda- 

tory. The subset associated with a solution Is optional. 

2. For Displacement Approach Rigid Formats, the Integer value for K1 or the alphabetic 
characters for A must be selected from the following table: 

J<I A 

1 STATICS 

2 INERTIA RELIEF 

3 M0DES or N0RMAL M0DES or REAL EIGENVALUES 

4 DIFFERENTIAL STIFFNESS 

5 BUCKLING 

6 PIECEWISE LINEAR 

7 DIRECT COMPLEX EIGENVALUES 

8 DIRECT FREQUENCY RESPONSE 

9 DIRECT TRANSIENT RESPONSE 

10 MODAL complex EIGENVALUES 

11 MODAL FREQUENCY RESPONSE 

12 MODAL TRANSIENT RESPONSE 

13 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS 

14 STATICS CYCLIC SYMMETRY 

15 MODES CYCLIC SYMMETRY 

STATIC AEROTHERMOELASTIC ANALYSIS WITH DIFFERENTIAL STIFFNESS 


3. 


For Heat Approach Rigid Formats, the Integer value for K1 
acters for A must be selected from the following table: 


or the alphabetic char- 


iLL 

1 STATICS 

3 STEADY STATE 

9 TRANSIENT 
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NASTRAN DATA DECK 


For Aero Approach Rigid Formats, the integer value for K1 or the alphabetic ';haracters 
for A must be selected from the following table: 


C0tfPRESSOR GIADE CYCLIC 

M0DAL FLUTTER ANALYSIS 
H0OAL AER0ELASTIC RESPONSE 


FLUTTER ANALYSIS 


S. Subsets cause a reduction in the number of statements in a Rigid Format. The use 
of a subset is optional. The integer value(s) may be selected from the following 
table: 


Subset Numbers 

1 Delete loop control. 

2 Delete mode acceleration method of data recovery 
(modal transient and modal frequency response). 

3 Combine subsets 1 and E. 

4 Check all structural and aerodynamic data without 
execution of the aeroelastic problem. 

5 Check only the aerodynamic data without execution 

of the aeroelastic problem. 

6 Delete checkpoint instructions. 

7 Delete structure plotting and X-Y plotting. 

8 Delete Grid Point Weight Generator. 

9 Delete folly stressed design (static analysis). 

Multiple subsets may be selected by using multiple integers separated by commas. 


2.2-78 (12/29/78) 



NASTRAM DATA DECK 


15. NCHECK - requests significant digits to indicate numerical accuracy of element stress 
and force computations. 

16. AER0F0RCE - requests frequency dependent aerodynamic laod.^ on interconnection points in 
aeroelastic response analysis. 

17. STRAIW - requests the strains/corvatures in a set of structural elements (applicable 
to TRIAl TRIAZ, QUAD!, and QUADZ only). 

18. CSP - selects contact surface points to be output. 

2.3.3 Subcase Definition 

In general, a separate subcase is defined for each loading condition. In statics problems 
separate subcases are also defined for each set of constraints. In complex eigenvalue analysis 
and frequency response separate subcases are defined for each unique set of direct input matrices. 
Subcases may be used in connection with output requests, such as in requesting different output 
for each mode in a real eigenvalue problem. 

The Case Control Deck is structured so that a minimum amount of repetition is required- Only 
one level of subcase definition is necessary. All items placed above the subcase level (ahead of 
the first subcase) will be used for all following subcases, unless overridden within the individual 
subcase. 

In statics problems, subcases may be contfjined through the use of the SUBC0M feature. Indi- 
vidual loads may be defined in separate subcases and then combined by the SUBCI2M. If the loads 
are mechanical, the responses are combined as shown in example 2, which follows. If a thermal 
load is involved, the responses due to mechanical and thermal loads may be recovered as shown in 
example 1. By redefining the thermal load(s) at the SUBC0H level, stresses and forces may be 
recovered. 
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CASE CONTROL DECK 


Case Control Data Card C^ - Contact Surface Point Selection 


n 

r. 


Description ; Selects the interface contact surface points for a static 
aeroelastic analysis. 


Format and Examples ; 
CSP » n 
CSP 31 


Option ; Meaning 

n Set identification number of a CSP card (integer > 0). 


n 


Remarks ; 

1. The normal displacement difference will be output for the selected 
interface contact surface points. 

2. This card should seUct only those points of the interface contact 
surfaces where "contact" constraint conditions were not invoked. U 
the 6PF0RCE Case Control Card to select points for which "contact" 
constraint conditions were invoked. 


n 

i j 


D 

S 

D 

0 
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Input Data Card CSP 


Contact Surface Points 


Description ; Defines Interface contact surface points fpr use in static 
aeroelastic problems* 


Format and Example: 


e 9 



CSP 13 5 9 


♦CSPI 


^ABC 6A4 GB4 GAS GG5 -etc- 


+CSP1 



Field Contents 

SID Identification number of contact surface set (Integer > 0). 

GA1 , GB1 Grid point Identification numbers of node point pairs at 
Interface contact locations (Integer > 0). 

Remart{s : 

1. Contact surface sets must be selected In the Case Control Deck (CSP ° SIO) 
to be used by NASTRAN 

2. The normal displacement difference between each GA1 and GB1 pair will be 
output If this SlO Is selected. 

3. Only those points where “contact" constraints were not Invoked should be 
selected here. Contact surface points where "contact" constraints were 
Invoked should be selected by a GPFjSRCE data card to output element forces 
at the contact locations. 



Interface contact surfaces represented by node pairs (GA1, GBl). (GA2, GB2), 
(GA3. GB3) and (GA4. GG4) 
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ternate Fonn: 


FLFACT 

SID 

FI 

THRU 

FNF 

NF 

FMID 

FLFACT 

201 

.200 

THRU ! 

.100 

11 

.133333 



Field Contents 

SID Set identification number (Unique Integer > 0). 

Fi Aerodynamic factor (Real). 

Remarks : 1. These factors must be selected by a FLUTTER data card to be used by NASTR,<W. 

2. Imbedded blank fields are forbidden. 

3. Parameters must be listed in the order in which they are to be used within the 
looping of flutter analysis. 

4. For the alternate form, NF must be greater than 1. F . . must lie between F, and 
Fj^p, otherwise will be set to (F^ + F^jp)/?. Then 

^ 


'NF mid' 


mid '^1' 


The use of (middle factor selection) allows unequal spacing of the factors, 
*^mid “ gives equal values to increments of the reciprocal of F,| . 
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BULK DATA DECK 

Input Data Card FLUTTER Aerodynamic Flutter Data 

Description : Defines data needed to perform flutter analysis. 



Contents 


RFREQ (or VEL) 


Set identification number (Unique Integer > 0). 

Flutter analysis method, "K" for K-method, "PK" for P-K method, "KE" for the 
K-method restricted for efficiency. 

Identification number of an FLFACT data card specifying density ratios to be 
used in flutter analysis (Integer > 0). 

Identification number of an FLFACT data card specifying 
MACH numbers or Interblade phase angles (ip) to be used in 
flutter analysis (integer ^ 0). 

Identification number of an FLFACT data card specifying reduced frequencies (k) 
to be used in flutter analysis {Integer > 0); for the p-k method, the velocity. 

Choice of interpolation method for matrix interpolation (BCD: L ° linear, 

S = surface). 

Nuri>er of eigenvalues for output and plots (Integer > 0). 

Convergence parameter for k; used in the P-K method (Real ) (default ° 10"^). 


Remarks : 1. The FLUTTER data card must be selected in Case Control Deck (FMETHOD = SID). 

2. The density is given by DENS ' RH0REF, where RH0REF is the reference value given on 
the AER0 data card. 

3. The reduced frequency is given by k = (REFC"u)/2*V), where REFC is given on the AER0 
data card, u is the circular frequency and V is the velocity. 

4. An eigenvalue is accepted in the P-K method when |k - l^estimate^ 
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Input Data Card MKAER01 Nach Number - Frequency Table 

Description: Provides j table of Mach numbers or interblade phase angles (mj 

and reduced frequencies (k) for aerodynamic matrin calciflatiog. 


Format and Example; 


MKAERgl mi 
MI(AER0li .1 


m3 {ni^ 


*BC k] ky k3 

't-BC .3 .6 1.0 


"<6 I 


•<6 h 


Contents 


List of Mach numbers (Real; 1 < i S). 

« 

kj List of reduced frequencies (Real > 0.0, 1 £ J ^ 8), 

Remarks ; 1. Blank fields end the list, and thus cannot be used for 0.0. 

2 . All combinations of (m,k) will be used. 

3. The continuation card is required. 

4. Since 0.0 is not allowed, it may be simulated with a very small number 
such as 0.0001. 

5. 

Mach numbers are input for wing flutter and interblade phase angles for 
blade flutter. 
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Input Data Card HKAER02 Mach Number - Frepuency Table 

pescrtpt ion: ProvHcs a Hst of Mach numbers or intcrbladc phase angles (ni) and 

reduced frequencies (k) for aerodynamic niatri# calculation. 


Format and Example: 


1 2 3 4 5 6 7 8 9 10 


MKAER02 

■"l 

‘‘l 


h.. 



HI4 

[h J 


MKAER02 

.10 

.30 

1 .10 

.60 

.70 

.30 

.70 

1.0 



Field 


Contents 




List of Mach numbers (Real > 0.0). 

List of reduced frequencies (Real > 0.0). 


Remarks : 1. This card will cause the aerodynamic matrices to be computed for a set of parameter 

pairs. 

2. Several MKAER02 cards may be in the deck. 

3. Imbedded blank pairs are skipped. 

4. Mach numbers are input for wing flutter and Interblade phase angle for blade 
flutter . 
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NASTRAN DATA DECK 


PARAM (Cont.) 


y. KHAX - optional in static analysis with cyclic symnetry (rigid format 14). The 
integer value of this parameter specifies the maximum value of the harmonic 
Index. The default value Is ALL which is NSEGS/2 for NSEfiS even and (NSEGS-l)/2 
for NSEGS odd. 

z. KINDEX - required in normal modes with cyclic symmetry (rigid format 15). The 
Integer value of this parameter specifies a single value of the harmonic Index. 

aa. N0DJE - optional In AER0 rigid formats. A positive integer of this parameter 
Indicates user supplied downwash matrices due to extra points are to be read 
from tape via the INPUTT2 module In the rigid format. The default value Is -1. 

ab. PI , P2, and P3 - required In AER0 rigid formats when using N0DJE parameter. See 
Section 5.5 for tape operation parameters required by INPUTT2 module. The 
defaults for PI, P2, and P3 are 0,11, and XXXXXXXX, respectively. 

ac. VREF - optional In modal flutter analysis (rigid format 10). Velocities are 
divided by the real value of this parameter to convert units or to compute flutter 
Indices. The default value Is 1.0. 

ad. PRINT - optional In modal flutter analysis. The BCD value, N0, of this 
parameter will suppress the automatic printing of the flutter summary 
for the k method. The flutter summary table will be printed If the BCD 
value Is VES for wing flutter, or TES8 for blade flutter. The default 
is VES. 

ae. ISTART - optional in direct and modal transient response (rigid formats 9 and 
12). A positive value of this parameter will cause the second (or alternate) 
starting method to be used (see Section 11.3 of the Theoretical Manual). The 
alternate starting trethod is recommended when Initial accelerations are signifi- 
cant and when the mass matrix Is non-singular. The default value Is -1 and will 
cause the first starting method to be used. 

af. KDAMP - optional In AER0 rigid formats. An integer value of +1 causes modal 
damping terms to be put into the complex stiffness matrix for structural damping. 
The default is -1 . 

ag. GLISTAER0 - optional in AER0 rigid formats. An integer value of +1 causes gust 
loads to be computed. The default is -1. 

ah. IFTM - optional in aeroelastic response (rigid format 11). The value of this 
parameter selects the method for the integration of the Inverse Fourier Transform. 
The integer value 0 specifies a rectangular fit; 1 specifies a trapezoidal fit; 
and 2 specifies a cubic spline fit to obtain solutions versus time for which aero- 
dynamic forces are functions of frequency. The default value is 0. 

ai. MACH - optional in AER0 rigid formats. The real value’of this parameter selects 
the closest Mach numbers to be used to compute aerodynamic matrices. The default 
is 0.0. 

aj. 2 ■ required In aeroelastic response (rigid format 11). The real value of this 
parameter defines the dynamic pressure. 

3k. 2EI * optional In static and normal modes analyses (rigid formats 1, 2, 3, 14, 
and 15); A positive integer value of this parameter causes both equilibrium 
and multipoint constraint forces to be calculated for the Case Control output 
request, HPCF0RCE. A negative integer value of this parameter causes only the 
equilibrium force balance to be calculated for the output request. The default 
value Is 0 which causes only the multipoint constraint forces to be calculated 
for the output request. 

at. GRDEQ - optional in static and normal modes analyses (rigid formats 1,2, 3, 14, 
and 15). A positive Integer value of this parameter selects the grid point about 
which equilibrium will be checked for the Case Control output request, HPCF0RCE. 

If the integer value is zero, the basic origin Is used. Default is -1. 
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BULK DATA DECK 


am. STRESS - optional In static analysis (rigid format 1). This parameter controls 
the transformation of element stresses to the material coordinate system (only 
for TRIA1« TRIA2, QUAOl and QUAD? elements). If It Is a positive Integer, the 
stresses for these elements are transformed to the material coordinate system. 

If It Is zero, stresses at the connected grid points are also computed in addi- 
tion to the element stresses In the material coordinate system, A negative Inte- 
ger value results In no transformation of the stresses. The default value Is -1, 

an. STRAIN - optional In static analysis (rigid format 1). This parameter controls 
the transformation of element strains/curvatures to the material coordinate 
system (only for TRIAl , TRIA2, QUADl and 0UAD2 elements). If It Is a positive 
Integer, the strains/curvatures for these elements are transformed to the material 
coordinate system. If It Is zero, strains/curvatures at the connected grid points 
are also computed In addition to the element strains/curvatures In the material 
coordinate system. A negative Integer value results in no transformation of the 
strains/curvatures. The default value is -1. 

flo. WINTPTS - optional In static analysis (rigid format 1). A positive integer value 
of this parameter specifies the number of closest Independent points to be used 
In the Interpolation for computing stresses or strains/curvatures at grid points 
(only for TRIAl, TRIA2, QUADl and QUAD2 elements). A negative integer value or 
0 specifies that all independent points are to be used In the interpolation. The 
default value Is 0. 


ap. APRESS - optional In static aerothermoelastic analysis. A positive 
Integer value will generate aerodynamic pressures. A negative vplue 
(the default) will suppress the generation of aerodynamic pressure loads. 

aq. ATEHP - optional In static aerothermoelastic analysis. A positive 
Integer value will generate aerodynamic temperature loads. A negative 
value (the default) will suppress the generation of aerodynamic thermal 
loads. 


ar. STREAML - optional In static aerothermoelastic analysis. STREAML=1 

causes the punching of STREAHLl bulk data cards. STREAML= 2 causes the 
punching of STREAHL2 bulk data cards. STREAML=3 causes both STREAMLl 
and STREAML2 cards to be punched. The default value, -1, suppresses 
punching of any cards. 


as. PQEgH - optional in static aerothermoelastic analysis. PGE(SH = 1 
causes the punching of GRID bulk data cards. PGEpH => 2 causes the 
punching of GRID, CTRIA2 and PTR1A2 bulk data cards. PGE0M 3 causes 
the punching of GRID cards and the modified ALGOB table on DTI cards. 
The default, -1, suppresses punching of any cards. 


■ optional In static aerothermoelastic analysis. If IPRT > 0 
then Intermediate print will be generated In the ALG module based on the 
print option In the ALGOB data table. If iprt = 0 (the default), oo 
Intermediate print will be generated. 
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NASTRAN DATA DECK 


PARAM (Cent.) 


au. Si GW - optional In static acrothernroelastic analysis. Controls the 
type of analysis being performed. SIGN ° 1.0 for a standard analysis. 
SIGN = -1.0 for a design analysis. The default is 1.0. 

av. ZgRlGWt FXCOpRt FVC00R. F?C00R - optional in static aerothermoelastic 
analysis. These are modification factors. The defaults are 

2(9R1GN ° 0.0. FXCPI9R ° 1.0. FYC00R ° 1.0. and F2C00R 1.0. 

aw. HlWHACH - optional in blade flutter analysis. This is the minimum 
Mach number above which the supersonic unsteady cascade theory is 
valid. The default is 1.01. 

ax. HAXMACH - optional in blade flutter analysis. This is the maximum 
Mach number below which the subsonic unsteady cascade theory is valid. 
The default value is 0.80. 

IREF - optional in blade flutter analysis. This defines the reference 
s treami i ne number. IREF must be equal to a SLN on a STREAM12 bulk 
data card. The default value. -1, represents the streamline at the 
blade tip. If IREF does not correspond to a SLN, then the default 
will be taken. 

az. HTYPE - optional in cyclic modal blade flutter analysis. This controls 
wh^feh components of the cyclic modes are to be used in the modal 
formulation. MTYPE ° SINE for sine components and MTVPE ° COSINE for 
cosine components. The default BCD value is COSINE. 

aaa. KTgUT - optional in static aerothermoelastic analysis. A positive 
integer of this prrair.eter indicates that the user wants to save the 
total stiffness matrix on tape (GIN0 file INPT) via the jSUTPUTI module 
i.T the rigid format. The default is -1. 

a • KG61W - optional in compressor blade cyclic modal flutter analysis. 

A' posi ti ve integer of this parameter indicates that the user supplied 
stiffness matrix is to be read from tape (GlNfl file INPT) via the 
INPUTTl module in the rigid format. The default is -1. 
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BULK DATA DECK 


^A8C 


Alternate Form: 


STREAMLl 

SLN 

GIOl 

"THRU" 

6102 

STREAMLl 

& 

6 

THRU 

12 


Field Contents 

■ ■ "I ■" ~ 

SLN Streamline number (Integer > 0). 

G1, GID1 Grid point Identification numbers (Integer > 0). 


Remarks : 

1. This card Is required for blade steady aeroelastic arrd blade flutter 
problems. 

2. There must be one STREAKL1 card for each streamline on the blade. 

For blade flutter problems, there must be an equal number of STREAMLl' 
and STREAML2 cards. 

3. The streamline numbers, SLN, must increase with Increasing radial 
distance of the blade section from the axis of rotation. The 
lowest and the highest SLN, respectively, will be assumed to 
represent the blade sections closest to and farthest from the axis 
of rotation. 

4. All grid points should be unique. 

5. All grid points referenced by GIOl through GI02 must exist. 

6. Each STREAMLl card must have the same number of grid points. The 
nodes must be Input from the blade leading edge to the blade 
trailing edge In the correct positional order. 
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BULK DATA DECK 


Input Data Card 


STREAML2 


Blade Streaml Ine Data 


Description : Define aerodynamic data for a blade streamline. 

Format and Examol e ; 


1 

2 

3 

4 

5 

5 

7 

8 

9 

10 

STREAML 2 

SLN 

NSTNS 

STAGGER 

CHORD 

RADIUS 

BSPACE 

MACH 

DEN 

♦ abc 

STREAML2 

2 

V 

23.5 

1.85 

6.07 

.886 

.934 

.066 






♦abc 

VEL 

FLOWA 








♦ABC 

1014.2 

55.12 










Field 

SLN 

NSTNS 

STAGGER 

CHORD 

RADIUS 

BSPACE 

flACH 

DEN 

I/l'. 

FLOWA 


Contents 

Streamline number (Integer >0) 

Number of computing stations on the blade streamline, 

(3 < NSTNS < 10, Integer) 

Blade stagger angle (> 90. 0 < stagger <90.0, degrees) 

Blade chord (real >0.0} 

Radius of streamline (real >0.0) 

Blade spacing (real >0.0) 

Relative flow mach number at blade leading edge 
(real >0.0) 

Gas density at blade leading edge (real >0.0) 

Relative flow velocity at blade leading edge (real >0.0) 
Relative flow angle at blade leading edge 
(-90.0 <FL0WA <90.0, degrees) 
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Remarks; 


1. At least three (3) and no more than fifty (50) STREAML2 cards are 
required for a blade flutter analysis. 

2. The streamline number, SLN, must be the same as’ its corresppnding 
SLN on a STREAMLl card. There must be a STREAMLl card for each 
STREAML2 card. 

3. It is not required that all streamlines be used to define thp 
aerodynamic matrices used in blade flutter analysis. 
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RIGID FORMATS 


The following rigid formats for structural analysis are currently Included In NASTRAN; 

1. Static Analysis 

2 . Static Analysis with Inertia Relief 

3. Normal Mode Analysis 

4. Static Analysis with Differential Stiffness 

5. Buckling Analysis 

S. Piecewise Linear Analysis 

7. Direct Complex Eigenvalue Analysis 

8. Direct Frequency and Random Response 

9. Direct Transient Response 

10. Modal Complex Eigenvalue Analysis 

11. Modal Frequency and Random Response 

12. Modal Transient Response 

13. Normal Modes Analysis with Differential Stiffness 

14. Static Analysis with Cyclic Symmetry 

15. Normal Modes Analysis with Cyclic Symmetry 

16. Static Aerothermoelastic Analysis with Differential Stiffness 
The following rigid formats for heat transfer analysis are included in NASTRAN: 

1. Linear Static Heat Transfer Analysis 
3. Nonlinear Static Heat Transfer Analysis 

9. Transient Heat Transfer Analysis 

The following rigid 'ormats for aeroelastic analysis are Included In NASTRAN: 

9. Compressor Blade Cyclic Modal Flutter Analysis 

10. Modal Flutter Analysis 

11. Modal Aeroelastic Response 

3.1.1 Input File Processor 

The Input File Processor operates in the Preface prior to the execution of the DMAP opera- 
tions in the rigid format. A complete description of the operations in the Preface is given in 
the Programmer's Manual. The main interest here is to indicate the source of data blocks that 
are created in the Preface and hence appear only as inputs in the DMAP sequences of the rigid 
formats. None of the data blocks created by the Input File Processor are checkpointed, as they 
are always regenerated on restart. The Input File Processor is divided into five parts. The 
first part (IFPl) processes the Case Control Deck, the second part (IFP) processes the Bulk Data 
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COMPRESSOR BLAPE MESH GENERATOR 


3.A1 COMPRESSOR BLADE MESH GENERATOR 

DMAP Sequence for Compressor Blade Mesh Gene rator 
RIGID FORMAT DMAP LISTING 
SERIES 0 

DMAP APPROACH, COMPRESSOR BLADE MESH GENERATOR 

LEVEL 2.0 NASTRAN DMAP COMPILER - SOURCE LISTING 

OPTIONS IN EFFECT' GO ERR=2 NOLIST NOOECK NOREF NOOSCAR 

1 BEGIN S 

2 ALG CASECC.,,.ALGDB,, / CASECCA.GE0M3A / C.N.-1 / C,N,-1 / 

V,Y,5TREAML=I / V.V,P6E0M=2 / V.Y,IPRT»1 $ 

3 END S 
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RieSO FORMAT$ 


3, at. 2 Description of PMAP Operations for Compressop Blade Mesh Ggoerator 


2. AL6 s^ner&tes 6A1D, CTRIA2, FTR1A2 STRIAMU DuU 4^%a esr^S. Yhsss 
cords ore output vis the system csrd punch. The QRIP and CTR^A£ cards 
represent o compressor blade mesh. The oerodynomlq Input dots Is 
checked by performing an aerodynamic analysis. 
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COMPRESSOR BLADE MESH GENERATOR 


3 .<22 . 3 Output for the Compressor Blade Mesh Generato r 

The GRID, CTRIA2, PTRIA2 and STREAMLl bulk data cards are punched, 
Aerodynanitc output is printed. 

3 4 Case Control Deck, DTI Table and Parameters for the Compressor Blade 
Mesh Generator 

1. Only TITLE, SUBTITLE and LABEL cards are processed, all other <?ase 
control cards ere ignored. 

2 .. The only required input is the AL6BD data table. This data block Is 
input via Direct Table Input (DTL) bulk data cards. AL6DB contains 
all the a^'.rodynaniic Input necessary for the ALG module. For a 
detailed description of the ALGDB data block Input see Section 1. IS. 3.1 
of the User ' s Manua 1 . 

The following user parameters are used by the Compressor Blade Mesh Generator, 

1. STREAML » Optional - A value of 1 casues the punching of STREAMLl bulk 
data cards. A value of 2 causes the punching of STREAML2 bulk data 
ca^ds. A value of 3 causes the punching of both STREAMLl and STREANL2 
cards. The default value, -1, suppresses the punching of all cards. 

2. PGEOM - Optional - A value of 1 causes the punching of GRID bulk data 

cards. A value of 2 causes the punening of GRID, CTRIA2 and PTRIA2 
bulk data cards, PGE^M ° 3 causes the punching of GRID cards and the 
modified ALGDB table on DTI cards. The default value, -1, suppresses 
the punching of all cards. 

3. IPRT - Optional - a non-negative value of this parameter will allow 
Intermediate print to be generated by the ALG module based on the 
print option In the ALGDB data table. The default value, 0, 
suppresses all intermediate print. 
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STATIC AEROTHERMOELASTIC ANALYSIS WITH DIFFERENTIAL STIFFNESS 

3.43 Static Aerothernioelasttc Analysts with Differential Stiffness 

3.M.1 DHAP Sequence for Static Aerothernioelasttc Analysis with 

Differential Stiffness . 

RiClO FUR'lAr 0(4AP LISTING 
SERIES J 

OISPLACtNENT APPRUACHg KIGtO FURNAT 16 

Level 2.0 nastran dmap conpiler - source listing 


OPTIONS IN EFFECT’ GO -RRo2 NOLI ST NQOECK NOREF NOOSCAR 

1 BEGIN NO. 16 STATIC AEROTHERmE LASTI C WITH OIFFERENTIAL STIFFNESS S 

CE3'UgCkU^2>/GPLgEgE Al NgCPOT ,CSTR «8GPUT g S I L/V > N»LUS ET/ VgNg 
NOCPOT S 

LUSETgNUCPOT & 

ERROR IgNOGPUT $ 

GPL gEQEXINgCPOTgC STNgBGPOTgSIL S 
CEOM2,EQEXIN/ECT 8 
ECT $ 

PCr)B//CgNgPRE S/CgNg/CgNg/C gN g /V g Ng NOPCOB S 
ft C»NgCONPLE« / / VgVgSIGN / CgNgO.O f VgNgCSICN % 
PLtSETXgPLTPARgGPSET SgEL SE TS/NOPCOB 8 
PI. NOPCOB S 




PCi)B,£gEXlN.bC1/PLISETXgPLTPaR,GPSETS«£LSETS/VgN«NSIL/ 
JU«PPLUT=-1 8 

NSILg JUNPPLUT 8 

PLTSETrt// 8 

//C,Ng’4PV/VgN gPLlFLG/C.Ngl /CgNgl 8 
//C.Ng.HPY/V.M.PFlLE/C.NgO/C.WgO $ 


V g Ng 


IT ( £0N3 Z ) PlgJOMPPLOTS 

16 (SToT 


19 SAVE 

20 ( p^i^ 

21 LABEL 

22 Ct«PNT 


PLTP AR.GP SETS .ELSE IS gCASECCgBCPOr gEQEXI NgSl Lg g g g/ P lUTXI/ 
NSlL/VgN.LUSr T/ V, Ng JUNPPLOT/tf .Ng PLTFLG/V gfijg FrRE 8 

JUMPPLJTgPLTrLGgPFlLE h 

PLOTXl// 6 

P I 8 

PLTPARgGPSETSgFLSFTS 8 


Vg Ng 
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ORiaWAL PME fS 


OF POOR QUALIW 

RIGID FORMATS 


(IIGIO FURHAI DMAP LISTING 
SERIES 0 

D|SPLACe.'16NI APPROACH* fU3 10 FORMAT 16 

LEVEL 2.0 NASTRAN O.'IAP COMPILER - SOURCE LISTING 


23 

2 A 

25 

26 
27 



SAVE 
PAR AH 
CHKPNT 




30 PURGE 

31 CPKPNT 

32 PARAM 

33 < |hG ^ 


3'. 

35 


36 

37 


id 


39 
90 
9 ). 

92 

93 
99 
95 


SAVE 

CHKPNI 



chkpnt 

LABEL 




CE0H3*E0EXIN*CE0M2/SLT(UPTT/V,NgNUGRAV 5 
NUGRAV $ 

//CtN*ANO/V*N *NOMCC/V*Nf NUGRAV/V* VgGROPNT--! S 
SLT.GPTT $ 

ECT,£Pt,BGPDT ,SIL *GP T T *C STM/E ST ,GE I ,CPECTj,/ V*N, LUSET/ V*N* 
NOSIHP/C *N* 1/ V,N,N0GENL/V,N,GEN£L 6 

NOSIHP.NJGENL *GENEL S 

ERROR l.NOSIMP $ 

U0>ST/GENEL i 

EST.GPEC I.GF.I .OGPST 8 

//LtN.AOU/Vt'l tNOKCGX/C *N*1/C *N*0 8 

EST,CSTM,MPT,0I T,CE0M2,/l<ELH,RD|Cr,MeLM*H01Cri,/V,N,NaRGGX/ V, 
N,N0HGG2C,N,/C * N, /C . N * /C * V ,C OUPMASS/C * V * CPB AR/ C * T ,C PRCD/ C* V * 
CPC7UA01/C. T.;P0UA02/C .y.CPTRI Al 2C, VfCPTRI A2/ C.YjCPTU6£/C*y. 
CPODPLT/C,y,:PTRPLT/C« Y.CPTRaSC 8 

NOKGGXiNOMGC 8 

KELM (KDlCTfH; LH*HOIC T 8 

JMPXGG.NUXGGX 8 

GPECT.KOICTfKELM/KGGXgGPST 8 

KCGXiGPST 8 

JMPKGG 8 

JMPMGC»I\IUMGG 8 

GPECT,H01CI*M£LM/MGG */t »N(-i /C , V *HT HAS$= 1 .0 6 

HCG 8 

JHPHGG 8 

L8L l.GROPNT 8 

ERROR 9.N0MGG 8 
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CR!G{MAL Pi'V2S \S 
OF POOR QUALimf 


STATIC AEROTHERMOELASTIC ANALYSIS WITH DIFFERENTIAL STIFFNESS 


RIGID FURt4AT DHAP LISTING 
SERIES U 

OISPLACEHENT approach, rigid format 16 

LEVEL 2,0 NASTKAN OMAP COMPILER - SOORCE LISTING 


46 

47 
4 B 
49 

90 

91 

92 

93 

94 
59 
96 



CHKPNT 

LABEL 

PARAM 



97 SAVE 



99 PURGE 


60 CHKPNT 


61 

62 

63 

64 
69 
66 

67 

68 


CCUNO^^ 


JUMP 

LABEL 



SAVE 



dCPOT ,CSTM,E9EXJN tIUC/UiP tie/ V,Y,GRUPNT/C,V,t4T MASS B 
OGPvIC, ,,,,// S 
LBLl 6 

KGCX.KGG/NOCENL S 
RCC 6 

LBLII.NOCENL 6 

CEI,KGGA/KCC/ V,N,LUSE1/V,N,NUGENL/V,N,N0SIHP 6 
KGG S ' 

L8L11 t 

//t,N,MP V/V,N ,NSKtP/C,N,0/C,N,0 S 

CASECC,GEUM4,E0EX1N, CPOT,BCPpT,CSTM/RC,YS ,USET p ASCT/VpN, 
LUSE T/V,N,MP:F t/V,N,MPCF2/V,N,Si NGLE/VpN,OMIT/V,N,REACT/VpNp 
NSK |P/7,N,REPEAT/V,N,NJSET/V,N,NOL/V,N,NUA/CtV,SUaiO & 

HPCEltMPCF 2, SINGLE ,UHI T.RE ACT pNSKI PpREPEATpNOSET pNOLpNOA S 

ERKUR9,N0L S 

GM/MPCFl/GOiKOU,LOU,PO,UUQV,RUOV/OMlT/PS ,KFS ,KS S , QG/S INGLE/ 
UBUOV/OMlT/YBS.PDS.KBFSpKBSSpKUF SpKUSS/S INGLE 6 

GM, R G , GO , KUO, LOO , P 0, UOUV , RUOV « YS , PS , KF S p KSS ,US ET , AS ET , UBOOV p 

VBS,PBS,KBFS,K&SS,KOFS,KOSSpQC ' 

LBL40,KEALT b 

ERH0K2 $ 

LBL4C i 

LBL4,CENELi 

GPL pGPSTiUSETdSIL/QGPST/VpNoNOCPST 6 
NOGPST 6 
LBL4,NUGPST i 
OGpST,,,,,// fl 
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0R?G4HAL Pf^ tS 
OF POOR QUALITY 


RIGID FORMATS 


RSCIO F3R<4AT UHAP LISTING 
SERIES 0 

DISPLACEMENT APPROACH) RIGID FORMAT 16 

LEVEL 2oO NASTRAN OMAP COMPILER - SOURCE LISTING 


69 

LABEL 

L8L4 6 

70 

diauiO 

KGG,KNN/MPCF1 & 

71 

CHKPNT 

KNN A 

72 

CCOND ^ 

IBL2<MPCF2 6 

73 

<gCEI ^ 

USETfRG/CH & 

7A 

CHKPNT 

GM 6 ' 

75 

<Sc^ 

USE To GM oKGG oo t /KNN o o « & 

76 

CHKPNT 

KNN $ 

77 

LAOEL 

L8L2 & . 

70 

douiv3 

KNNoKFF/SINCLE $ 

79 

CHKPNT 

KFF i 

80 

(gciNU 

L0L3t SINGLE i 

81 

(fcJi 2> 

USET,KN,Nfoo/RFFoKFS»KSS.»o 6 

82 

CHKPNT 

KTSoKSSoKFF fi 

83 

LAOEL 

LBL3 i 

04 

<|5uT^ 

Kt-FoKAA/OMIT 8 

as 

CHKPNT 

KAA 8 

06 

(JonIP^ 

LBLSoOMlT 8 

87 

(|hpi P) 

USET oKFF 0 9 0 /G 0 0 KA A oKCOoLOOfooBo 8 

88 

CHKPNT 

GCloKAAoKDOoLOU 8 

69 

LAOEL 

L0L5 8 

90 

(bomgO 

KAA/LLL 8 

91 

CHKPNT 

LU 8 

92 

dscT ^ 

SLToUCPOToCSrMo SI LoE ST .MPToG PTT oEOT oMGCo CAS CCCc OIT/ PCNA / VoNo 
LUSET/CoNoI 8 

93 

C»mPNT 

PGNA i 
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PAGE 


^ P®@R QUALtHV 


STATIC AEROTHERNOELASTtC ANALYSIS UlTH DIFFERENTIAL STIFFNESS 

R9CIO FORMAT OMAR lISTiNC 
SERIES 0 

DISPLACEMENT APPROACH; R IS 10 FORMAT 16 

LEVEL 2.0 NASTRAN OMAP COMPILER - SOURCE USHNC 


«<> PARAI4 

95 CCOND 3 

96 i( IlC 2 > 

9T CONO 

98 PARAM 

99 CONO 

100 CP 3 

101 CHKPNT 

102 ( gs^ 2 ) 


103 

106 

105 

106 
107 

loa 

1U9 

110 

111 

112 

113 

116 


CHKPNT 



LA8& 

< |quiv3 

CHKPNT 

( gOUlV^ 

CHKPNT 



//CjN.ANO /V,MsAI.OAO /V,V,APR£SS /VjVjAYEMP ft 
NOALdALOAO ft 

CASECCt oEOEKlN; ;ALG0d;« t CASECCAl «CEQK1 A1 /S; V o APRESS/S ; V g 
AT£'1P/C;N;-1/C tNo-l/V;V;lPRTCl/S;N«IFAIL ft 

FINlSolFAlL 1 

//CtNeA.MO /VgNgALOAO /VgVgAPRESS /VgVgATENP ft 
NOALgALOAD ft 

GE0M3AUE0E)tl NiC£0M2 /SLTAl .GPTTAl / VgNtNOGRAV ft 
SLTAlgGPTTAl ft 

SI.TAIgOG»OTg: STMg SIL .ESTgMPi gCPTTAl ,EOT gMCG g CAS ^CCAl g OIT t 
PGAl / VgNgLUSft T / C gNgl ft 

PGA I ft 

PG'dAgPGAl / PG ft 
NUAL ft 

PCNAgPG/ALOAD ft 
PG ft 

PGgPL/NUSET ft 
PL 8 

LBL lOgNOSET ft 

USETgCM.rSgKF SgCOg gPG/gPOgPSgPL ft 
PUgPSgPL ft 
LBLIO ft 

LLL gKAAgPl. ,LOOgKOOgPO/ULVgUOOVgROLVoROaV/V,NgOMIT/VgVg aRES“-l/ 
CgNg 1/VgN /EPSI ft 


115 SAVE EPSI ft 

116 CHKPNT ULVgUOUVgRULVot UOV 8 

117 < £pNP^ LBL9»1R6S8 
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POOR QUALITY 


RIGID FORMATS 


RIGID FDRN&r JMAP LISTING 
SERIES 0 

DISPLACEMENT APPROACH, RISID FORMAT 16 

LEVEL 3,0 NASTRAN OMAP COMPILER - SOURCE LISTING 


Ue ( gATG^ 
119 ( ^TCPj > 
I2C LABEL 

.121 dCRp^ 

122 CHKPNT 

123 < |dr70 


1 24 

125 

126 

127 

128 


PARAM 


SAVE 



129 

130 

131 

132 


SAVE 




134 

135 

136 

137 
136 

139 

140 


CFiKPNT 



LABEL 
PARAM 
PARAM 
PAR AMR 


CPLoUSET,SIL,ROLV//C,N«L & 

GPL,USET,SIL,RUUV//C gNt>U & 

L8L9 S 

USET , oULV,U03V,Yr.«CO,CM,PS,KFS,KSS ,/UGV,PCl ,QG/ CoN, 1/ CoNoOSO & 
UGV.OC 6 

CASECCtCSTMgMPToOl T,EQE«1 N,S1 LgCPTTpEOT, BGPOT , , QCaUGV , EST, , PC/ 
OPClgOijGlgOU; VI gUESl gOEPl gPUG VI /C « N o pSO 5 

//C,H>'tPY/V,N,CAR0N0/C,N,0/C iNtO S 

3UGVl,aPGl,U2Cl,UEFl,0£Sl g//V,NgCARONO A 

C4R0N0 S 

P2, JUMP PLOT 8 

PLTPARgGPSETSgELSE iSgCASECCgSCPDTgEQEAlNgSUgPPGVlg gCPECTgOESl/ 
Pt'jTX2/VgNgNSlL/V,N,LLSE T/ VgN g JPMPPLOT/V .'NgPLTF LC/V , Ng PP ILE 8 

PFILE 8 

PL0TK2// 8 

P2 8 

F.CTgEPTgBCPDTgSIL gCPTT,CSTM/Kl gK2j)T5gECPT ,CPCT/V,NgLUS£T/ , 
NOSIMP/C gNgO/VgNgNUGENL/VgNgGENEL 8 

CASECCgGPTTgSILgEOTgUGVgCSTMgMPTgECPTgGPCTgOIT/KOGG/ VgNg 
0SC0SET8 

KPGC 8 

NOALOgALOAO 8 
P GN A g P G 8 
NOALO 8 

//CgNgAUO/VgN gSMIF T/C gNg-l/CgNgO 8 

//CgN gAOO/VgN gCOPI\T/VgNgALRArS°-l/VgNvNEVER° 1 8 

//CcNgAOU/VgN gPSE PSI /C gN g 0. O/C g N gO. 0 8 


3.23 -6 (9/30/78) 


ORJQIINAL’ mOE fS 
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RSG80 FORMAT OMAP LISTING 
SERIES 0 

OISPLACENENT APPROACH, RIGID FORMAT 16 

LEVEL a«0 MASTHAN DMAP COMPILER - SOURCE LISTING 


lAI 

IA 2 

H3 

14<> 

IA5 

146 

147 
146 
1*9 

150 

151 

isa 

153 
I 34 

155 

156 

157 
156 

159 

160 
161 
162 

163 

164 

165 



(^NO^ 

C|«P 2 ^ 

CHXPN7 

LASa 

< jb^ ^ 


VS//C,N II NULL/C uNo/CoNo/C gN,/V,NiiNOYS & 

UUTLPTOP S 

UUTLPTUP t 

PGtPGl/NUVS S 

PGt $ 

//C.N,RLaCK/V.N»rO $ 

KOGGgKONN/MPlFa $ 

KONN 1 

L[3L2D,MPCF2 i 
U SE T g GM gRDGGg 0 9 /RONN g g , 6 
KONN t> 

LtSL2U ^ 

KUNNgW)FF/SlNGLE 8 
RDFF 5 

L3L3D«S1NGLE 8 

USETtKaNN, g g/RDFF gROF SgKOSSg g g 8 
RDFFgHOFSgKOSS 6 
LUL3D 8 

KOFFgROAA/OMl T 8 
KCAA 8 

LBL50g0MlT 8 
USETgCOgKOFF/tCOAA 8 
R OAA 8 
LBL50 8 

XAAgKOAA / KSLL / CoNgU.OgOoOt / VgNgCSICN 8 


3.33 -7 (9/30/78) 


ORIOKMAI PAQg B 


OF POOR QUALITY 


RIGID FORMATS 


R8C8D O'tAo liSTiniC 

SEAJ 9 S 0 

OlSOLflfE'lEUT AOB^OaCH, oiGin FCPf»6r 16 

LEVFl 2oC .-jiSTRAN O^AP CO^^PUCA - SO'JPCE LlSTI^tG 


166 Coo 

167 ( grn ^ 



KFl(i<DFS/ KDFS / Cv^tao^IGo^l / V«^oCS{ 0 ^l 9 
KS«,KUSS/ KftSS / C«6oU.O«0.0) / V«N,CSir.M & 
PGItfjNOVS ft 

t‘»S«!,VS./PSS/'' .M.O/C.N,l/C,M.l/C,H,i J 
KRFS, VSt/^FS/C. o'nO/C »M,l/C(,N,l/C,^«l 6 
tSr:T,PF<5,P<S/Pf./C «N »^/C .N ,c/C »A. S ft 
PN.P';)J/“ 4 PCF 2 3 
L9L60,MPCF2 6 


17<4 

175 

176 

177 
179 
179 
leo 
m 
162 
193 
186 
169 
166 
187 
168 
169 
190 



L AOF.L 



P&f&A 



US"'',P?<. ,N,0/C.NtA/C,N,W ft 

LBLftn a 

P-K.PG/PGG/r. ,N,(-l,OtO.O» ft 
Pr..'.,(>61/Al. ha vs ft 

PfiTK ft 

5 

UGu / AUGV ft 

<9LL/lPLL/V,N«Pnwfp/V,N,D6T ft 
nET.ncbpP ft 
LBLL ft 

//'•.♦N ,C/C .N.riET ft 
//*■. .'J.O/C ,\,PrhS1 ft 
INtP^CP 6 
IftiiPiCP ft 

//^,,^|,KLfCK/V,^,TI ft 
NOALUALCAn ft 

CA'irr.CpF:iT,FQ? HjM,AU5V,ALGC3,CSTM,RGPn? / ( ASK ( A. CfOM 3fl /S»V, 
A»9S5S/StiVcATr PP/C pAio-l/C .Ai»-l/V»V, I PPTCt/SoW* 1 ffill/V, V,S ICW/V, 
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0R1G«WAL PAGE !S 
OF POOR QUALITY 
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I 

RieiC FJRNAT LISIINC 

SERIES 3 

OfiSPLACERENT APPAOdCHg KISIO FORMAT 16 

LEVEL 2,0 NASTRAN UMAP COMPILER ' SOURCE LISTING 


I 9 & 

192 

193 
I 9 <) 

195 

196 

197 

198 

199 

200 
2 U 1 
202 

203 

209 

203 

206 

207 

208 

209 

210 
211 
212 
213 


C £M<^ 

PARAM 
PARAM 
CONI) 
CP 3 


L A8EL 
EQUI V 
CMKPNT 



y«20R lCN/VgrgFnCOOK/VgygFVCOOR/VgVgF2COOR 6 
DOME gif A 1*. 5 

//CgNgMPV /'VgVgIPRTCL /CgNgO $ 

//CgNgANO /VgNgALOAO /VgVpAPRESS /VgVgATEMP g 
NOALlgALOAO 6 

CEOM3Ao£QEXlNgCEUM2/SLrAgUPTrA/VgNgNOASL/VgNgNJGRAV/VpNgNOArL 8 

SLTAgpCPUTgCSTNgSILgESTgMPTgGPTTAgEOTgMCCgCASECCAgOir /PGA /V, 
NgLUSET /CgNgU 

PClgPCA / PC2 8 

NUAL 1 8 

P01gPC2 / ALOAO 8 
PG2 £ 

<JSErgGM,YSgK3FSgC0ggPC2 /gPBOgPSSgPBL 8 

* 

L6LL gKOLLgPBL , ( g /tUL V g gR U8 LV g/C glMg'l/Vgr glRES/VsNgNOSKIP/Vg Ng 
EPSI 1 

EPSl £ 

UiR.V,RUaLV 8 
L(lL9JiIRES £ 

GPLf LSETgSlLgRUBLV//CgNg > £ 

LDL 9 J £ 

USETg gUBLVggVSgCO gCM gPBS gR8F S g KBS S g /UUCV g , OBG/ C pNg 1/ Cg N g OS 1 £ 
UBGVgQBG £ 

NUAL2gAL0AU £ 
ueCVpAUCV £ 

N0AL2 £ 

UBCVgUCM/OUCV/C pN p(-1.0g0.0l 8 
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ORlQftNSA?^ 

OF POOR QUALITY 


RIGID FORMATS 


RIGID F3R<4&T OMAR LISTING 
SERIES 0 

DISPLACEMENT APPROACH^ RIGID FOHMAT 16 

LEVEL 3.0 NASTRAN OMAP COMPILER SOURCE LISTING 


2K ( gSMcO 

213 CWLPNT 

216 (§PVA^ 

217 F D 

218 ( ^c7(Q 


CASECCtCPTToSIL «E 0 l>UUGV oC STM >MPT (ECPT,GPCf o 017/ OKDGG/V « No 
OSCOSET S 

OKDGC 6 

OKUGGoUi)GVoPGO/PCI 1/C t N o 0/C o N ol /C«N»I /C«N o 1 6 
PGI loPCA / PGI2 £ 

PC2oPCI2oUBCV //C oVoEPSIO°l.E-3 /VoNoOSEPSI / CoV,NT°10 /VoNo 
TO /VoNoTI /VoNoOONE /VoNoSHIFT /V oNoCCUNT/Co Y> GET A0° A £ 

OSEPSIoJONEoSHIFToCOUNT £ 

OONEoUONE £ 

SHIFT. SHIFT i 

PO.Pil/HEVER i 

PGl loPGl/ALWA TS 8 

PCloPCIl/NEVER 8 

I NLP TOP, 1000 8 

PGI loPCl oPGo, // 6 

SHIFT 8 

OKOGG.KOGG/OCGl/CoNol-l.poO.OI 8 
(C DGG I 8 

UUCV, LfGV/ALRA V S /KOGG 1 o KOGG /ALWAYS 8 
KDGC 8 

KOGCoMOCGl/NE VER/LGV oUtfG V/NE VEA 8 
OUTlPTJPolOOO 8 
DuG 1 0 AD GG , LC V , , / / 5 
DONE 8 

//C.NoNOP / VoVoATOUT=-l 8 
JMPA TOUT oK TOUT 8 
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©RIQSWAL PAGs IS 
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RBfilO FUR«IAT DNAP LISTING 
SERIES 3 

OISPLACENENT APl»«UACri, RIGID FORMAT AA 

LEVEL . <G NASTRAN UMAF COMPILER - SOURCE LISTING 


230 

2i9 

240 

241 

242 
24 3 

244 

245 

246 

247 

248 

249 

230 

231 

232 

233 
254 

235 

236 
257 
238 
259 




RCGtKOGC / RTOTAL / C uNd (A o OoO. 01 / VoNtCSICN 3 
tCIOTAL,,o« // CoV,LOCAIlON=-l / CoVoINPTUNIToO 8 
// CffWp*3 / C pN pO 8 
JMPRTOUT 8 
CSTM 8 

CASECCpE0TpE3E«IN gUdCVpALGOBpCSTRpBCPOr / CASECCSpGEUMi^ /C«Np 
° A/CpNp- A/VpTpSTREANL/Vp VpPGECM/VpVpIPRTCF/SpNp |FAIL/VpVpS|GN/ 
Vp Tp2DHIGN/Vp VpFACOUR/Vp VpF VCOOR/V p VpFZCOOR 8 

CASECCpC STMpMPTpDI TpEQEXINpSI l.gGPTT pEDT, BGPOT p p Q8 CpU 8CV p EST ; p /p 
OyRClpOUDCVApOESBI pOEFBl pPUDG /l /CpNpOSA 8 

OUtiGVApOQBClpOEFBLpOE SB! p p // V pNpCARONU 8 

CAKONU 8 

USETpPGEpUBLVppYSpGOpCMpPBSpKBFSpKBSSp t AUBCVpAPGGpAQGC /CpNo 
A /CpNpOSI 8 





CASECC.AUDGVpRILMpROIC TpECTpEaE aiNpCPECT p APGCp AQ6G /ONRCYlp 
OGPFi) L / CpNp statics 8 

ONRCYlpOCPFBA pppp // 8 

P3,-UMPPL0T 8 

PLTPARpGPSETSpELSETSpCASECCpBGPOT.EQEttlNpSlLpPUOGVlppCPBCTt 
OESB 1/PL0TX3 /VpNpNS1 L/VpNpLUSET/ VpNp jump plot/ Vp Np PLTFLG/tf pMp 
PflLE 8 

PFiLc 8 

PLOTjO// 8 

P3 8 

F IN I S 8 

ERROR 1 8 

//CpNp- A/C pNpOIFF STIF 8 
ERROR? 8 

//CpNp- 2/C pNpOIFF STIF 8 
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OmOfVAL PAGE m 
RIGID fORHATi QUALITY 

RIGID FORMAT OMAP LiSTINC 
SERIES 3 

OISPLACEMENT APPRJACHg RIGID FORMAT U 

LEVEL 2,0 NASTRAN OMAP CO'^r-iLER - SOURCE LISTING 


260 LABEL 

261 (gRTP^ 

262 LABEL 

263 ^T^AR 

266 LABEL 
269 END 6 

««N0 ERRORS FOUND 


ERROR 6 i 

//r.,N«-6/C.NgOIFF STIF S 
ERRORS 6 

//CtN«-5/C,M»0IFFSTlF 8 
FINIS 8 


iAECUTE NASTRAN PROGRAMoe 
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quaLITTY static aerothermoelastic analysis with differential stiffness 


3.33*2 Descfiptlqn of DHAP Operations For Static Aerothermoelastic Analysis with 
Differential Stiffness ^ 

2. 6P1 generates coordinate system transformation matrices* tables of grid 

point locations, and tables for relating Internal and external grid point 
numbers. 

4. Go to OMAP No. 256 If no grid point definition table. 

6. GP2 generates Element Connection Table with Internal Indices. 

9. PARAMR sets CSIGN°(SIGN, 0.0), where SIGN Is +1.0 or -1.0 for analysis or 
design type run. 

11. Go to OMAP No. 21 If no plot pactcage Is present. 

12. PLTSET transforms user Input Into a form used to drive structure plotter. 
14. PRTHSG prints error messages associated with structure plotter. 

17. Go to OMAP No. 21 If no undeformed structure plot request. 

18. PL0T generates all requested undeformed structure plots. 

20. PRTMSG prints plotter data and engineering data for each undeformed plot 
generated. 

23. GP3 generates Static Loads Table and Grid Point Temperature Table. 

27. TA1 generates element tables for use In matrix assembly and stress 
recovery. 

29. Go to DP1AP No. 256 and print error message If no structural elements. 

33. EF1G generates structural element matrix tables and dictionaries for later 
assembly. 

36. Go to OMAP No. 39 If no stiffness matrix is to be assembled. 

37. EMA assembles stiffness matrix tKgg] and Grid Point Singularity Table. 

40. Go to OMAP No. 43 If no mass matrix is to be assembled. 

41. EMA assembles mass matrix [M ]. 

99 

44. Go to OMAP No. 48 If no weight and balance request. 

45. Go to OMAP No. 260 and print error message If no mass matrix exists. 

46. GPUG generates weight and balance Information, 

47. j3FP formats weight and balance Information and places It on the system 
output file for printing. 

49. Equivalence ] to [K ] if no general elements. 

99 99 

11. Go to OMAP No. 54 If no general elements. 

12. SMA3 adds general elements to [Ko_] to obtain stiffness matrix [K ]. 

99 99 

56. GP4 generates flags defining members of various displacement sets (USET), 
forms multipoint constraint equations CR„]{u } ° 0 and forms enforced 
displacement vector {Y ). ® ® 

9 


OF ?OQ^ 
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[ 




I F 

U V * 

F 


n 

If ' 

f! 


78. 

80. 

81. 


83. 

86 . 

87. 


ORieiMAL PAGE IB 


SB. 

6U 

64. 

65. 

67. 

68 . 

70. 

72. 

73. 
75. 


RIB ID FORMATS 


Go to OMAP No. 262 and print srror message no Independent degrees of 
freedom are defined. 

Go to DHAP No. 63 If no free-body supports supplied, otherwise go to DMAP 
No. 258. 

Go to OMAP No. 67 If general elements present. 

GPSP determines If possible grid point singularities remain. 

Go to DMAP No. 69 If no Grid Point Singularity Table. 

0FP formats table of possible grid point singularities and places It on 
the system output file for printing. 

Equivalence [Kgg] to [K„„] If no multipoint constraints. 

Go to DMAP No. 77 If MCEl and MCE2 have already been enecuted for current 
set of multipoint constraints. 

MCEl partitions multipoint constraint equations [Rg] ° [R„,1R„] and solves 
for multipoint constraint transformation matr1« tG 1 » -[R I'^rR 1. 

MCE2 partitions stiffness matrix 




ii I K 

%n ^ nm 

K__ . K„„ 
mn mm 


and performs matrix reduction 

["nnl " t“.„] * 

Equivalence [K^„] to [K^^] If no single-point constraints. 
Go to DHAP No. 83 If no single-point constraints. 

SCEl partitions out single-point constraints. 




ff 

1“ H-„— 

^sf 


K 


ss 


Equivalence to If no omitted coordinates 

Go to OMAP No. 89 If no omitted coordinates. 

SMPl partitions constrained stiffness matrix 

F I “ 

«aa Xao 

[Kff] ! 

oa 00 

solves for transformation matrix CS,1 ■ 
and performs matrix reduction fK..] “ [K»„] + [kI.ICG^], 

a CJ cl 03 0 


I 
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90. 

n. 

95. 

96. 
102. 
TOO. 
.106. 
106. 
110 . 
Ill . 


114. 


RHBG2 decomposes constrained stiffness matp1« . 

SSGl generates non-aerodynamlc static load vectors 

Go to OKAP No. 10S If no aerodynamic loads. 

ALG generates aerodynamic load data. 

SSGl generates aerodynamic load vector (Fg). 

Add and (P^) to form total load vector (P ). 

9 9 g 

Equivalence (Pg) to {Pg^} If no aerodynamic loads. 

Equivalence (P^} to (P^) If no constraints applied . 

Go to OMAP No. 113 If no constraints applied. 

SSG2 applies constraints to static load vectors 

"■.t ■ ■ 

{Pf> “ (P^l-CK^slIYj) . 



{Pf} = 



and 


(p,l " (p,)*[gJhp,i . 


SSG3 solves for displacements of independent coordinates 
solves for displacements of omitted coordinates 


calcilates residual vector (RULV) and residual vector error ratio for 
1 ndt p^endent coordinates 


{dPj} = (Pjj) - [Kaa3(uj> 

(uJhsPj^i 

o 

(pj)l.l) 

and calculates residual vector (RU0V) and residual vector error ratio 
for omitted coordinates 

(dP^) = (Po) - CKoo3<«^ . 

{ujHdPo) 
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RI610 FORMATS 


OR!GmAL PAGE fg 
OF POOR QUALITY 


117. So to DMAP Ho. 120 1? residual vectors ore not to be printed. 

118. Print residual vector for Independent coordinates (RULV). 

119. Print residual vector for omitted coordinates (RU0V). 

121. SDR1 recovers dependent displacements 



CGo](uj} . («;> , 


j“o| 

<“f> , 

["!) 






*^m| 


end recovers single-point forces of constraint 

{qj) = -{Ps> + + [KsjKYj}. 

122. S0R2 calculates element forces and stresses (0EF1, 0ES1 ) and prepares load 
vectors, displacement vectors and single-point forces of constraint for 
output (0PG1, 0UGV1, PUGV1, 0OG1). 

125. 0FP formats tables prepared by S0R2 and places them on the system output 
file for printing. 

127. Go to DHAP No. 131 If no static deformed structure plots are requested. 

128. PL0T generates all requested static deformed structure plots. 

130. PRTHSG prints plotter data and engineering data for each deformed plot 
generated. 

132. TA1 generates element tables for use In differential stiffness matrix 
assembly. 

133. DSMG1 generates differential stiffness matrix tKo„]* 

135. Go to DMAP No. 137 If no aerodynamic loads, 

M A 

136. Equivalence {Pg ) to {Pg> to remove aerodynamic loads from total load 

vector before entering differential stiffness loop. New aerodynamic loads 
will be generated In loop. 

1d2. Go to next DMAP Instruction If cold start or modified restart. 0UTLPT0P 
will be altered by the Executive System to the proper location Inside the 
loop for unmodified restarts within the loop. 

H3. Beginning of outer loop for differential stiffness Iteration. 

144. Equivalence (Pg) to (Pg) If no enforced displacements. 

147. Equivalence [f^gg] ^*^nn^ multipoint constraints. 
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t 

19 


149. 

150. 


153. 

155. 

156. 


159. 
161 . 
162. 


165. 

166. 

167. 

168. 

169. 

170. 

171. 
174. 

176. 

177. 


ORIGCWA?. PAGi; ?$ 
OF POOR QUALITY 
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6o to DMAP No. 152 tf no multipoint constraints. 
MCE2 partitions differential stiffness matrltt 




' C 


mn 


I 


mm 


and performs matrix reduction [kJ^] = [kJ^] * ♦ [K^nJCGg,] 

* CGl][KL]f6„]. 

ra mm'*- ra'* 

Equivalence to If no s1ng1e«po1nt constraints. 

Go to OKAP No. 158 If no single-point constraints. 

SCE1 partitions out single-point constraints 


t«SnI " 


Ik'*' 

ff "^fs 
— 


A 


llsf I '^ssj 

Equivalence [K^^3 to If no omitted coordinates. 

Go to DNAP No. 164 If no omitted coordinates. 

SMP2 partitions constrained differential stiffness matrix 


CK}f] 


p t 

L^oa ( S_oj 


and performs matrix reduction [Kg^] ° fl^aa^ * ^®o^^^*^oa^ 

* C6„]T[kJ^][GJ. 


AOO [Kgg] and [Kgg].CSIGN to form 


ADO [Kpj] and [K^gl-CSIGN to form [K^gJ. 

AOO [Kjg] and [kJjJ.CSIGN to form [Kgg]. 

Go to DMAP No. 178 If no enforced displacements. 
MPYAO multiply [Kgg] 8n<1 to form (Pgg)* 

MPTAD multiply [Kfg] tVg} to form (P^g). 
UHERGE expand (P^g) and ^^n^* 

UMERGE expand iP„} to form {p“}. 

ADO '{Pg} and (Pg) to form tPgg)* 

Equivalence {PggJ to iPgi^- 
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179. 

180. 
1S1. 

184. 

185. 

186. 

187. 

189. 

190. 

191. 

196. 

197. 
§ 01 . 


§ 02 . 


8I6ID FORMATS 


mmmi page ng 

OF POOR QUALITY 


ADD {Pg^) and nothing to create iPg^l- 

Cop^ (Ug) to {Ug> to Initialize aerodynamic displacements. 

R6MG2 decomposes the combined differential stiffness matrls and elastic 
stiffness matrix. 

tKS,3 ■ Ci5,3CuS,1. 

PRTPARM prints the scaled value of the determinant of the combined differen- 
tial stiffness matrix and elastic stiffness matrix. 

PRTPARM prints the scale factor (power of ten) of the determinant of the 
combined differential stiffness matrix and the elastic stiffness matrix. 

Go to next DMAP Instruction If cold start or modified restart. INLPT@P will 
be altered by the executive system to the proper location Inside the loop 
for unmodified restarts within the loop. 

Beginning of inner loop for differential stiffness Iteration. 

Go to DMAP No. 194 If no aerodynamic loads. 

ALG generates aerodynamic load data. 

Go to DMAP No. 235 If ALG falls to converge while generating aerodynamic 
load data. 

SSG1 generates aerodynamic load vector {P^}. 

ADO (Pg^J and (Pg) to form total load vector (PgjJ. 

SSG2 applies constraints to static load vectors 



S563 solves for displacements of 
entlal stiffness load vector 


(pj) " (pjl • [sJkpS) , 

. (Pf) «■ - [KjsliVj). 

and (pj) - (pj) ♦ CgJ]{pJ) . 

Independent coordinates for current differ* 


(wji ■ f«S,i-'fpS) 
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205. 

206. 
208. 


210 . 

211 . 

213. 

214. 
216. 


217. 

218. 
220 . 
221 . 

222 . 


OF POOR QUALITY 

STATIC AEROTHERHOELASTIC ANALYSIS WITH DIFFERENTIAL STIFFNESS 


find calculates residual vector (RBULV) and residual vector error ratio For 
current dIfFerentlel stiffness load vector 

<SfJ) • tp^) - CicJ,](yS) . 

b i»S)'hpS) 


Go to OMAP No. 207 If residual vector for current differential stiffness 
solution is not to be printed. 

Print residual vector for current differential stiffness solution. 

SORl recovers dependent displacements for current differential stiffness 
solution 



and recovers single-point forces of constraint for current differential 
stiffness solution 


Go to OMAP No. 212 If no aerodynamic loads. 

Equivalence {u®} to (Ug) . 

ADD -{uj> and {Ug} to form lUg) . 

DStlGI generates differential stiffness matrix • 

MPYAO form load vector for Inner loop Iteration. 



99 g go 


ADO (P„ } and {pf} to form {P„ } . 

9ll 9 9I2 

OSCHK performs differential stiffness convergence checks. 

Go to DMAP No. 235 If differential stiffness Iteration Is complete. 

Go to DMAP No. 227 If additional differential stiffness matrlu changes are 
necessary for further Iteration. 

Equivalence breaks previous equivalence of (Pg) to (Pg^) • 
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RI6I0 FORMATS 


22^. 

S2S. 




©F POOR QUAllVf 

Equivalence (P. ) to 

®n ®' 

Equivalence breaks previous equivalence of {P ,) to (P ). 

01 9n 

Go to OMAP No. 187 for additional Inner loop differential stiffness 
Iteration. 


226 . 

228. 

230. 

232. 

233. 

234. 

237. 

238. 
230. 
240. 
243. 


245. 


247. 


248. 

249. 

250. 


TABPT table prints vectors (P„ ), (P^,), and (P„). 

ADO -[dkjg] and [K^g] to form 

Equivalence (U^) to (Ug) and [K^g|] to [Kgg]. 


Equivalence breaks previous equivalence of [k^„3 to and (U } to {I**). 

99 99 99 

Go to OMAP No. 143 for additional outer loop differential stiffness iteration, 
TASPI labl. prints 

Go to OMAP No. 241 If the total stiffness inatrls Is not to be saved on tape. 
ADD [IC_.] and [kj„] to form [KTOTAL]. 

99 99 


OUTPUTl outputs [KTOTAl] to tape. 

OUTPUTl prints the names of the data blocks on the output tape. 

ALG generates final aerodynamic results and generates GRID and STREAML2 bulk 
data cards on the system punch, If requested. 

SDR2 calculates element forces and stresses (0EF81, 0ES61) and prepares 
displacement vectors and single-point forces of constraint for output 
(0UBGV1 , PUBGV1, 00861} for all differential stiffness solutions. 

0FP formats tables prepared by SDR2 and places them on the system output 
file for printing. 


SDRl recovers dependent displacements after differential stiffness loop for 
grid point force balance. 

GPFOR calculates for requested sets the grid point force balance and element 
strain energy for output. 

OFP formats the tables prepared by GPFOR and places them on the system output 
file for printing. 

Go to DMAP No. 254 if no deformed differential stiffness structure plots are 
requested. 


251. PL0T generates all requested deformed differential stiffness structure plots. 

253. PRTfISG prints plotter data and engineering data for each deformed plot 
generated, 

255. Go to DMAP No. 264 and make normal e»1t. 

2S7. STATIC ANALYSIS WITH DIFFERENTIAL STIFFNESS ERR0R MESSAGE N0. 1 - N0 
STRUCTURAL ELEMENTS HAVE BEEN DEFINED. 

259. STATIC ANALYSIS MITH DIFFERENTIAL STIFFNESS ERR0R MESSAGE N0. 2 - FREE B0OY- 
SUPP0RTS N0T ALL0WED. 
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231. STATIC ANALYSIS MITH DIFFERENTIAL STIFFNESS ERR0R NESSA&E N0. 4 - NASS 
MATRIX REQUIRED F0R NEIGHT AND BALANCE CALCULATIONS. 

263 STATIC ANALYSIS WITH DIFFERENTIAL STIFFNESS ERR0R MESSAGE N0. 5 ■ N0 
INDEPENDENT DEGREES OF FREEO0M HAVE BEEN DEFINED. 
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RIGID FORMATS 


3 . B .3 Autoiantic Output for Static AerotharmoGlastlc Analysis w< th 

Ol/ferenTial Stlf7fie33 - _ ^ 

The value of the determinant of the sum of the elastic stiffness and the 
differential stiffness Is automatically printed for each differential stiffness 
loading condition. 

Iterative differential stiffness computations are terminated for one of five 
reasons. Iteration termination reasons are automatically printed In an Information 
message. These reasons have the following meanings: 

1. REASON 0 means the Iteration procedure was Incomplete at the time of eslt. 
This Is caused by an unexpected Interruption of the Iteration procedure prior to 
the time the subroutine has had a chance to perform necessary checks and tests. 

Not much more has happened other than to Initialize the exit mode to REASON 0. 


2. REASON 1 means the Iteration procedure converged to the EPSIGI value 

supplied by the user on a PARAM bulk data card. (The default value of EPSIgl 

Is l.OE-5.) 

3. REASON 2 means iteration procedure Is diverging from the EPSIg) value 

supplied by the user on a PARAM bulk data card. (The default value of EPSIg) 

Is l.OE-5.) 


4. reason 3 means insufficient time remaining to achieve convergence to the 
EPSI0 value supplied by the user on a PARAM bulk data card. (The default value 
of EPSI0 is l.OE-5.) 


5. REASON 4 means the number of Iterations supplied by the user on a PARAM 
bulk data card has been met. (The default number of Iterations Is 10.) 

Parameter values at the time of exit are automatically output as follows: 

1. Parameter Og)NE: -1 Is normal*, N Is the estimate of the number 

of Iterations required to achieve convergence. 
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STATIC AEROTHCRMOELASTIC ANALVSIS UITH DIFFERENTIAL STIFFNESS 


2 , Parameter SHIFT: t1 Indicates a return to the top of the Inner loop 

was scheduled; -1 indicates a return to top of the outer loop was scheduled 
following the current Iteration. 

S. Paraoieter DSEPSI: the value of the ratio of energy error to total 

energy at the time of exit. 
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RI6ID FORMATS 


3 . 3, V 4 Case Control Deck DTI Table and Parameters foir Static Aerothermoelastlc 

Anal vstswfth OlfY^rentTar Stiffness 

The following Items relate to subcase definition and data selection for 
Static "irrthennoelastlc Analysis with Differential Stiffness: 

1. The Case Control Deck must contain two subcases. 

2. A static loading condition must be defined above the subcase level with 
a L(9A0| TEMPERATURE(LOAD) , or DEFORM selection, unless all loading Is 
specified by grid point displacements on SPC cards. 

3. An SPC set must be selected above the subcase level unless all constraints 
ere specified on 6k. D cards. 

d. Output requests that apply only to the linear solution must appear In the 
first subcase. 

5. Output requests that apply only to the solution with differential stiff* 
ness must be placed In th> second subcase. 

6. Output requests that apply to both solutions, with and without differen- 
tial stiffness may be placed above the subcase leva. 

7. Aerodynamic Input for the Aerodynamic Load Generator (AL6} module Is 
Input via data block ALGDB, This data block must be Input using Direct 
Table Input (DTI) bulk data cards. For a detailed description of the 
ALGOS data block Input see Section 1.15.3,1 of the User's Manual. 
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The fallowing outpot may be cequeated foP Static Aepothermoelastfc Analysis with 
Olfferential Stiffness: 

1. Nonzero Components of the applied static load fop the linear solution at 
selected grid points. 

Z. Displacement and nonzero components of the s1ngle<>po1nt forces of qon« 
strainte with and without differential stlffnessg at selected grid 
points , 

3. Forces and stresses In selected elements, with and without differential 
stiffness. 

4. Undeformed and deformed plots of the structural model. 

1. GROPHT - optional - a positive integer value of this parameter will caqse the 
Grid Point Melght Generator to be executed and the resulting weight and 
balance Information to be printed. 

2. UTHASS - optional - the terms of the mass matrix are multiplied by the real 
value of this parameter when they are generated In ENG. 

3* IRES - optional - a positive Integer value of this parameter will cause the 
printing of the residual vectors following the execution of SSG3. 

4. CBUPHASS - CPBAR. CPR0D, CPQUAD1 . CPQUAD2, CPTR1A1, CPTR1A2. CPTUBE. CPQDPLT . 
CPTRPLTy CPTRBSC - optional - these parameters will cause the generation of 
coupled mass matrices rather than lumped mass matrices for all bar elements, 
rod elements, and plate elements that Include bending stiffness. 

5* BETAD • optional- the Integer value of this parameter Is the assumed number of 
Iterations for the Inner loop In shift decisions for Iterated differential 
stiffness. The default value Is 4 Iterations. 

g, ^ ~ optional - the Integer value of this parameter limits the maximum number 
of Iterations. The default value Is 10 Iterations. 


3.45-25 (9/30/78) 


K!6I0 rORHATS 


EPS10 “ optional • the real value of this papametep is used to test the con- 
vepgence of Iterated differential stiffness. The default value Is 10"®. 

APRESS ° optional In static aerothermoelastlc analysis. A positive Ipteser 
value will generate aerodynamic pressures. A negative value (the default) 
will suppress the generation of aerodynamic pressure loads. 

ATEHP optional In static aerothermoel astic analysis. A positive Integer 
value will generate aerodynamic temperature loads. A negative value (the 
default) will suppress the generation of aerodynamic thermal loads. 

STREAHL - optional In static aerothermoelastlc analysis. STR£AML°1 causes 
the punching of STREAMLI bulk data cards. STREAML <° 2 causes the punching of 
STREAML2 bulk data cards. STREAML°3 causes both STREAMLI and STREAML2 cards 
to be punched. The default value, -1, suppresses punching of any cards. 

PGEgM - optional In static aerothermoelastlc analysis. PGEOMqI causes the 
punching of GRID bulk data cards. PGE0M»2 causes the punching of GRIP, 

CTRIA2 and PTRIA2 bulk data cards. PGE0K°3 causes the punching of GRip cards 
and the modified ALGOB table on QTl cards. The default, suppresses punch- 
ing of any cards, 

IPRT - optional In static aerothermoelastlc analysis. If IPRT > 0, then 
Intermediate print will <e generated In the ALG module based on the print 
option In the ALGOB date table. If IPRT » 0 (the default), no Intermediate 
print will be generated. (IPRTCI, IPRTCL, IPRTCF) 

SIGN - optional in static aerothermoelastlc analysis. Controls the typ® of 
analysis being performed. SIGN ° 1.0 for a standard analysis. SIGN ° -1.0 
for a design analysis. The default Is 1.0. 

Z0RIGN. FXCgIgR. FYC00R, FZCOflR - optional In static aerothermoelastlc 
analysts. These are modification factors. The defauls are ZSIRIGN °-0.0, 
FKCOOR ° 1.0, FVCOOR ° 1.0, and FZCOOR 1.0. 
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STATIC AEROTHERMOELASTK ANALYSIS UlTH OIEFERENTIAL STIFFNESS 

KTOdT “ optional In static aepothefnioelastlc analyses. A positive Integer* 
of this par’ameter Indicates that the user wants to save the total stiffness 
natrix on tape (SINO file INPT) via the OUTPUT1 module in the rigid format. 
The defaul t Is -1 . 




pkm os 

©F P©0R QUALITY 

COMPRESSOR SLADE CYCLIC MODAL FLUTTER ANALYSIS 

COMPRESSOR BLADE CYCLIC MODAL FLUTTER ANALYSIS 
3 . . 1 DHAP Sequence For Compressor Slade CvcHc Modal Flutter Analysis 

R8CIU FJRMAT U-4AP LBSHNG 
SERIES 0 

AERO APPROACH. RIJIU FORMA? 9 

LEVEL 2cO NASTRAM UMAP COMPILER - SOURCE LISTING 


OPTIONS IN EFFECro CO ERR°2 NOLI ST NQDECK NQREF NOUSCAR 

AERO NO. 9 COMPRESSUK SLAOE CVCLIC MODAL FLUTTER ANALYSIS 8 

PHI HL=APPEN0/AJJL =APPENJ/F SAVEeAPPENO/CASEVYeAPPENU/CLAMALo 
APPENl)/OVC=APPEND/yHHL=APPENO S 

GED'U.CEUME./CPL.EOE J(l N.CPUT gCST M.BCPOT .SIL/V . NsLUS ET/ VdNd 
NOGPOT i 

LUSET.NOGPOT 8 

EHROiU, NOGPOT $ 

CPL.EOEXIN.GPOT.C STH.aGPOT.SlL i 
01JE.02JE/N03 JE 5 
SEClM2.tOEXlN/ECT $ 

CCT 1 

GEOM3gEOEXlN>GEOH2/)CPTr/V.N.NOGRAV 8 
GPTT a 

ECTgEPT.BGPOr gSiL gGPTTgC SIM/EST ,CEI ,GPECT,./VgNgLUSET/ V.Ng 
NUSlMP/CgNgl/VgNgNUGENL/VoNgGENEL 8 

NOGENL gNUSlMP gOENEL 8 

ERROR I .NOSIMP 8 

UCPST/GENEL 8 

ESTgGPEC TiGEI gOGPST 8 

//CgNgAOO/VgN gNUKGGX/C gNol /CgNgO 8 

//C.N gAOO/Vg^ gNOMCG/C gNgl/CgNgO 8 

// CgNgNOP / Vg YgKGCl NO'I 8 

JMPKGClNgKCCI N 8 

//CgNgAUU /VgNgNOKGGK /CgNg-l /CgNgO 8 


« 

1 

BEGIN 

2 

FILE 

3 

(gPl 2) 

A 

SAVE 

5 

(^ND 3 

6 

CWPNT 

7 

PURGE 

B 


9 

CHXPNT 

10 


U 

ChKPNT 

12 


13 

SAVE 

K 

<^NU ^ 

15 

PURGE 

16 

ChltPNT 

17 

PARAM 

IB 

PABAM 

19 

PARA'4 

20 

<^n£^ 

21 

^AHAM^ 

22 

^NPuf^ 
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Quautv 


AlCiO FOtmA? dmp listing 

SERIES 0 

AERO APPROACH, RIGID FORW T <i 

LEVEL 2.0 NASTk&N OMAP CONPILER - SOURCE U STING 


23 

2« 

25 

26 



2? 

2R 

29 

30 

31 

32 

33 
36 

35 

36 

37 

38 

39 
60 
61 
62 
63 
66 

65 

66 



LABEL 



CKKP.MT 





label 


CWtPiJT 

< gOND^ 



CHtCPN I 
LABEL 


KTor/H^tKOGA 8 
KGG» 6 
JHPRGCIN & 

EST,CST.'l,MPT,DIT,CEOM2,/KtLH,KOICT,MEL«,KDiCT,,/V,N,NOKCC«/ V 
N,NU.IGC/C iN,/C ,N. /C, N,/C,r,COUPM ASS/C ,V,CPOAR/C,VpCP«Ut)/ C,V 

cpaoa!)i/c,r,;pwgAD2/c»Y,cpTRi ai/c,v,cpirja2/c,v,cptub£/ c,v, 

CPQOPLT/C, Y,:PTBPL t/Cj V.CPIR8SC 6 
NOKGCX.NU-'ICG S 
KELNiRJlCToMELRgNOIC T S 

jhprcox,ncirc 3 a h 

GPECI ,KDICT,RELH/KGCa,CP$7 S 

RGGXrCPST i 

JMPKGGK 6 

EKRURI.MUMGG $ 

GPECT.M01CT,M£LN/MGG,/C,N,-1/C, VoWTMASS=UO 8 
MCG S 

LGPt^G,GKOPNT 8 

BGP0T,CSTH»E3EalN,HGC/UJPMC/V,V,CR0PNr»-a/C,Y,UTHASS S 
OCP ^G, ,,,,// S 
LCPUG 8 

k'CGx , RCC/NOGE ML 8 
KCG 8 

LBLMtNOGENL 8 

GEi,RGC«MGO/V,N,LUSET/V,Ni>NO&FNL/V,N,NOSIHP 8 
kGG 8 
LBLU 8 

CASECC,GE0M6,EQEaiN, 6P0T ,8GP0T,CST P/ RG, ,USET, AS ET/ V,W» 

• . • « 9 
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original page b 

OF POOR QUALiTY 


COMPRESSOR OLADE CYCLIC MODAL FLUTTER ANALYSIS 


RICIO FURHAT OMAP LTSTtMb 
SERIES 0 


AERO APPROACH. RICIO FORMAT <i 

LEVEL ZoO NAS TRAN OMAP COMPILER - SOURCE LISYINC 


•ol SAVE 


LUSE f /V.N(MP; f I/V.A.MPCH2/V.N.SI NGLE/V.NoUMIT/VdN.REACT/C.NoO/ 
V.M.RCPEAr/V.N.NOSE T/ V.N oNUL/ V. N .NOA/C . V .SUdlO 6 

MPCF I . S INGLE. OMI T .RE AC T» NOSE T .MPCF2 .REPEAT . NCL. NOA S 


AO PARAH //C.N.NJT/V.N .REACOATA /V.N. REACT Z 
A-g < ^ONo 3 ERROR 5.R EACUA TA $ 

50 PURGE GM.CMO/MPCFt/CU.GUU/OMi T/KFS.QPC/SI NGLE Z 

51 < ^CYC3 CEUMA.EOEXIN. USET /CVCO/ V.V.CTYPE / V.N.NUCO 8 

52 SAVE NUCU Z 


53 CFRHNT CVCU 6 


5 A CCUNU 


55 CCONO 


56 ftPSP 


57 -SAVE 
56 (tom) 


C 0 FP_J> 


60 LABEL 


6 1 (Sou J V 


EKR0H6.N0CQ Z 
LdLA.uENEL Z 

GPL tSPST.OSEr .SIL/U3PST/V.N,N0CPSr 8 
NOGPST 8 
L6LA.N00PST $ 

0 GP STf....// 8 
L6LA 8 

KGO.RNN/HPCFl/HGtt .MNN/MPCFl 8 


62 CKPNT RNN.MNN 8 


P 3 Gouo 


L8L2.MPtFl 8 


6A (ficTT^ US£T,RG/fiM 8 


65 ChKPNT 


66 <HCf2 


USET<GM.KCG.MCG../KNNtMNN.« 8 


67 CmPNT KNN.MNN 8 

66 LABEL LBL2 8 

69 ( |tjU I v2 > RNN.KFF/SINGLE/MNN.MFF/SINGLE 8 

70 CKKPNT RFE.MFE 8 
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ORJGtNAL PAGE IS 
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RIGID FORMATS 


RICIU FORMAT OMAP LISTING 
SERIES 3 

AERU APPROACH, RIGID FURMAT 9 

LEVEL 2.0 NAS TRAN DMAP COMPILER - SOURCE LISTING 


71 GohO LBLi, SINGLE 6 

72 ^E1 3 ) USET,KNN,MNN, ,/KFF ,KFS,,MFF,, S 

73 CHKPNT KfF,KFS,MFF & 

*74 LAUEL LDL3 i 

75 (eouT^ RFF ,RAA/0MIT/ MFF,HAA/CMIT S 

76 CHKPNT KAA.NAA & 


77 < gONU 3 LBLS.OMIT 6 

7B < |MP1 ^ user, AFF, 0,/CO, KAA.KCO. LOO, ,0,0 & 
79 CWtPNT CO, AAA 6 


< gHP2*^ GSET,C0,MFF/MAA £ 


61 CHKPNT MAA £ 


62 LABEL 
83 CUPC 


84 SAVE 


65 GOND 


86 GOtJ I V J ) 

87 ( ^CTjQ ) 


88 SAVk 


LBL 5 £ 

OVNAM iCSoCPL, SILtUSE T/CPLD,SI LOoUSETO,TF POOL, , , , , , EEO, EGOYN/V, 
N,LUSET/V,N,LUSETO/V,N,NUTI L/V,N,NOOLT/V,N,NUPSOL/V,N,NOFRL/V, 
NoNONLF T/V,N,NUTRL/VoN,NUEkl)/C,N,/V,N,NJUE £ 

LUSETD,NUUE,N0EED £ 

EMROR2,NOEED £ 

GO,aJD/NOUE/CHiCMO/NCUE £ 

CYCOoKAA ,RAA, ,, /KKK,MKK,,, / C,N,FORE / V,Y,NSECS°-1 /V,V, 
KIN0E«=-1 / V,¥,C VCS69=-l / C,N,l / V,N,NOCO £ 

NUCU £ 


89 CHKPNT KKK.NKK £ 

90 C fUNP ^ ERHaR6,N0C0 £ 


91 Quad 


92 SAVE 


K«CK,MKK, ,,EE3 ,«CASECC / LAHK,PH1K, .OEIGS / C,N, MOOES /V,N, 
NEIGV £ 

NEICV £ 


93 CHKPNT LAMK,PH1K, OEICS £ 
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RICJD FORMAT DMAP LISTINC 
SERIES 0 

aero APPKUACHr RIG 10 FORMAT 9 

level 2.0 NASTRAN UMAP compiler - SOURCE LISTING 


VA 

95 

96 

97 

98 


PAR AM 



99 SAVE 
100 CHRPNT 



103 ( Tor 2 2 > 


109 

105 

106 



107 

SAVE 

106 

CMRPNI 

lOsi 

(fAPlQ 

110 

CSmTvT^ 

ill 

(gTRA In]) 

lU 

SAVE 

113 

PURGE 

119 

(gguiv^) 

115 

CKPNT 

116 

^AO ^ 


//C,N,MPV / VjN.CARDNO / C»N«0 / CoN,0 i 
JElGSpLAMRt t H VgNgCARDNO i 
CARONO i 
ERRORAgNEIGV 6 

CVCO* pg.PHlKpLAMR /, » ,PMI A,LAMA / CjN.BACK / VgYoftSECS /V«V, 
RINOEA ! VfVpCrCSEQ / CpNgl / VpNgNUGO » 

N0C3 i 

LAMAgPHIA t> 

ERROR AgNUSO S 

L*SETg gPHlAg ggGU gG M g g tO" S g g / PHI Ggg / CgNgl / CgNg RE BG 8 
CASECCgCST.MgMPTgOITgEQEXINgSILgggBGPDTgLAMAggPHlCgESTgg / gg 

OPHIGggg / CgNgREIG S 
OPHiGggggg// VgNgCARDWO 8 
CAR UNO & 

EOTgUSETgBGPOTgCSIPgEOERINgCMgCO / AEROg ACFT gFL 1ST g CTttAg PVECT/ 
Vg.N gNR/VgNgNJ / Vg VgMl A MACH / Vg V g MA SMACH/ V g Y g I REF/ V g V g Ml VP E/V g Hg 
NEIGV/V, YgRINOE)(°-l 8 

NKgNJ 8 

AEROgAClM.FLI STgCTRA gPVECT 8 
PHlAgPVECT. / PHIAA, gg / CgNgl 8 

PHlAXgMAAgPHl AXgg g / Ml / C g N g3 /C gN gl / C g Ng 1 / Cg N gO/C g Ng A 8 

CASECCgMATPOOL gEQO YN g g TF P0CL/K2 PPgM2PPgB2PP/ VgNgLOS ETO/VgNg 
N0K2PP/VpNiN'JM;>PP/VgNgN082PP 8 

NUR2PPgN0M2PP gN0B2PP 8 

R 200 /NUR2P P /M 200 /N0M2 PP/B200 /N0B2 PP 8 

f42PP pM2UD/NUSET/B2PP gU2J0/N0SEf /R2 PPg«DO/NOSET 8 

R2PPgM2PPgB2PPgK2DUgM200gB2D0 8 

USE TO, CM gCO go g g gtC2PP gM2PPgB2PP/ 0 ggGMl)oCOOg«200g M200g B200/Cg Ng 
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OmGfWAt.- PAGE SS 
OF POOR QUAUTY 


RICiO fJR'tAI OMAP LISTiNC 
SERIES U 

AERO APPROACH. RiCIl) FORMIC T 9 

LEVEL 2.0 NASrRAN OMAP COMPILER - SOURCE LISUMG 


117 

CHKPNI 

ue 



a 19 

SAVE 

120 

CHKPNT 

12a 

PAR AML 

122 

PURGE 

123 


12A 

(pltTeT;) 

125 

SAVE 

126 

(^TMS^ 

127 

PAR AM 

128 

PAR AM 

129 

(Sjnu ^ 

130 

(jjLlJl 

131 

SAVE 

132 

C^TM^ 

133 

LABEL 

13A 

<guN O 3 

135 

PARAM 

136 

Camc 3 

137 

SAVE 


CMPLEV/C.N.OI SP/C gN.MOOAL/C pNgO. 0/C gMgO.O/CoMgO .0/V«MgNOK2PP/V« 
Mgl«lOR2PP/VgNgNUB2PP/VgNgMPCFl/VgNgSiNCLE/VgN,UNir/VgMpNOllE/ Cg 
N g ” I /C gNg”l/CgWg“J/CgMg“l 8 

R20UgN200,iiZ)0 oCOUgOMO 8 

USETJpPHiA AgRI gLAMrtgUI TgM200o8200gK2l)OgCASECC / MHHg BHHgRHHg 
PHiOH / VgMg'VUUC/C gVgLMOUES°9999V9/CgVgLPREQ<’0.0/CgVpHFREy°0.0/ 
V,MgNOR2PP/VgAi»ND82PP/V.NgNOR2PP/VgNgNOftlCUP/VgH,FMOOE/CpYg 
KOARPo-l S 

MOMCUPgPMJOE S 

RHHgdHMgKHHgPHiDH 8 

PCOB//CgN,PRE S/CcNg/CpNg/C gNg/VgRgNUPCOti 8 
PLTSE IXgPLTPARgSPSETSoELSE IS / N0PCO8 8 
P2g JOPCOrt 8 

PCUtfgEQOYNgE: T / PLTSE TA .PLTPAR, UPSETS gELSETS / VgNgNSILi /V,N, 
JUMPPLOI — I 8 

NSIL IgJUMPPLOT 8 

PLTSEIX // 8 

//CpN,HPV/VgH ,PLTFL0/C ,N gl/CgN,l 8 
//CgiXigMPY/VgNgPFILE/Cg.'JgO/CgNgO 6 
P2,JUHPPL0T 8 

PL TP AR, UP SETS gELSEIS .CASECC gaOPOI pEQiTVN g g g g g/PLOT A 1/V gN« NS U 1/ 
VgVIf LUSP T/VtN .JUMPPLUI/VgNgPLIPLC/VgNgPFUe 8 

JUNPPLJTgPLTF LG gPPILE t 

PLUTAJ // 8 

P2 8 

ERROR2gNOEED 8 

//Cg.lgAOO/VgM gOESTRV/C gNgO/C gNgl 8 

A ER U g ACP T/A JJ L g SR J gO 1 JK g02 JK/ V g N gN K/V , Ng NJ/ V gNg OEST RY 8 
OESTRV 8 
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COMPRESSOR DLADE CYCLIC MODAL rLUTTCR ANALYSIS 

RIGID fORSAT OMAP LISYINC 
SCRIES 0 

AERO APPROACH. RIGID PORMA Y 9 

LEVEL 2.0 NASVRAM OMAP COMPILER - SOURCE LISTING 



138 CWPNT AJJL tSKOiOlX .D20K & 

139 ( gUMO ^ NODJE.NJOJC & ^ 

140 ^MPOTj S) /UIJE.02JE.../C .Y.PUSlTIUN°-l/CiV.UNITNOM°il/ C«V,USRL ABEL° 

TAPE ID S 

141 LABCL NOUJE i 

142 PARAM //C.N.ADO/V.N.SOhhL/C.N.I /CdN.O 8 

U3 AJJL t SRJ .OUR .02JP.G TKA.PHlOH.Dl JE .02 JE .USET l)« AERO/ 6NHL j s /V. 

N.NUUE/V.N. »;}HHL 8 

144 SAVE »0>IHL & 

145 0«PNT OHHL ^ 

1'46 PARAM //CoN.MP V/V.N .NOP/C.A»-l/C.Na 8 

147 PARA^) //C,M,MPy/V.N «NOP/C»N»l/C,N.R 8 

14b PARA.'} //C.N.MP V/ViN iNOH/CgNpO/CoNtl 8 

149 ( gARA93 > //C,.M .MPY/V.N ,f LOOP/V.V,NUDJEo-l/C«N.O 8 

150 < ^riP 3 LOOP TOP 8 i 

151 CTAriTL^ !) LOUP TOP 8 

152 KHH.dHM.MHH.JHKl.CASECC.FLI ST/FSAVE .KRHri.BSHHpMKMM/ V.N, FLOOP/V, 

N, I START 8 


153 

SAVE 

FLOOPpTSTART 8 

154 

<g?At>^ 

KKMH.b)(HH|M)U}HtEEO,CASECC/PHlH|CLAMA)UCEtCy V.N.ElCVS 8 

155 

SAVE 

EIGVS 8 

156 

C£ONP~I> 

LBLZAP.EICVS 8 

157 


LUL 16.NUH 8 

150 

<5or^ 

CASECC.EQOYNt USE TO , PHI H .C LAMA «, /CPHIH, /CpNg CEI GEN/ C« N. MODAL /C, 
Ng 123/VtNtNUH/VgN,NUP/V.NiFM00E 8 


159 SAVE NDHpNUP 8 
UO LBLIApNOH 8 
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ORfaWAl PAC^f; 

OF POOR QUAUTY 


RIGID fURMAT OMAP LISTING 
SERIES J 

AERO APPROACH, RIGID FURNAT ^ 

level 2.0 NASTRAN OMAP COMPILER - SOURCE LISTING 


lAI Z ) 
UZ SAVE 
163 LAUEL 
16 A 


16 S 
166 

167 

168 
164 

170 

171 

172 

173 
176 

175 

176 

177 

178 

174 
180 
181 
182 


SAVE 

CWPNT 



183 

186 ChKPNT 


OPHIH, , , D ,//V«N,CARDNO i 
CARUNU 6 
LBL 16 6 

PHIH,CLAMA,FSAVE/PMlHL,CLARALoCASEVV,OVC/VoN,TSTAR 7 /C«tf oVREF«? 
1 . 0 /C ,V,Prt INT oVESB h 

T START S 

PH 1 HL,CLAMAL,CASE VTcOVG 6 
CONT INUEoTSTART 5 
LBLZAP £ 

CON TINUEoF LOOP i 
LOOP TUP , 100 S 
ERROR 3 S 
CONTINUE i 
OVG 6 

XVCDB//C»N,P<€S/C «N,/C ,N, /C , N,/ VjNr NOKYCDB 8 
NOXVUUTtNOXYCOtl 8 

XYCJUtOVG, »». /XYPLTCe/C»N, VG/C»N,PSET/V, N, PF ILE/V pN,CARONO 8 
PFILEtCARUNU 8 
XVPL rCE// i 
NQXYOLT 8 

//CcN,AND/V,N,PJUMP/V,N.N 0 P°- 1 / V,N» JJMPPLOT 8 
FINIS9PJUSP 8 

CASEVYtCLAMAL »PHI HL,CASECC 9 « /CL AMALl 0 CPHI HI , CAS EZ 2 , 9/C9N9 
CEIGN 8 

CPHlHlgPMIDH/CPHID 8 
CPHIU 8 
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RIGID FORMAT UMAP LISTIlMC 
SERIES 0 

AERU APPROACH. RIGID FORMAT 9 

LEVEL 2.0 MASTRAN DMAP COMPILER - SOURCE LSSYINC 


165 

106 

167 

188 

189 

190 

191 

192 

193 
19 <( 
195 


< g«uiv^ 


C jCM 
LABEL 
CHKPNT 

(Tqu^vJ ) 
CmMO 3 



196 

197 

198 

199 


CHKPMT 



200 

201 

202 

203 

204 

205 

206 
207 
206 



CPHIU.CPHIP/MOA 6 

L8L 1<>.;4UA S> 

USEr0.«CPHlOo . .CUOtCMOo.ftF St . /CPHI P g .OPC/C. Nil/ CpM. OYMAMICS & 
L8L14 i 
CPrtIP.UPC $ 

CPHlUtCPHIA/iMOUE « 
lULMUEtNOUE & 

USETO/RP/CtNeO/CtM.A/C pNtE 6 
CPHIUttRP/CPHUot f/C tMgi/CtN«3 6 
L8LNUE i 

CASEZ2.CSTM«MPT«31 TtEOOVNgSl LO i . tSCPOT .CLAMALl » OPCo CPHI Pt ESTo t / 
tUUPCltUCPHlP gUGSCltUEfCl tPCPHl P/CtMoCEIGM A 

PCPHIP 8 

UCPHIPtUUPCltOESCloUEFCl . .// V.NtCARDNO 8 
P3.JUMPPL0T i 

PLTPAR tCP SETS .ELSE IS .CASE ZZ.BCPOT.EOOVNiSlLOt.PCPHI P. ./PLOTS 3/ 
V.M.NSIL .LUSET/V.N. JOMPPLUr /VtW.PLTFLG/V N.PFILE 8 

PL0TS3// 8 

P3 8 

MM IS 8 

ERROR 1 8 

//C.M.-l/C.N.FSUBSi'N 8 
ERROR 2 8 

//C»Mt-2/CoM.FSU8SCM 8 
ERRORS 8 

//CoM»-3/C.N.FSUDSCW 8 
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ORfGiMA!. PAQE fS 
OF POOR QUALITY 

RIGID FORMATS 


RN2U UNAI> LISTING 

scAi.';i; a 

ACRO Ak>i>A0ACH» RIGID FORMAT 9 

LEVEL 2.0 NASIRAN OMAP COMPILER - SOURCE LISTING 


209 

LABEL 

ERROR A 8 

210 

^RIPA^ 

//CtNt'A/CtNtFSUaSGN 5 

2tl 

LABEL 

ERROKS i 

212 

(glTTP Al^ 

it C«Nt-’A / : oNpC VC MOOES A 

213 

LABEL 

ERROR 6 A 

21A 

^tparB> 

// CtN>-9 ! CoNvCVCMOOEF £ 

2IS 

LABEL 

FINIS & 

216 

ENC 

S 


ERRURS FOUI^O - E^CUTE NASTRAN PROGRAMAP 
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COMPRESSOR BLADE CYCLIC MODAL FLUTTER ANALYSIS 


.2 Description ef DMAP Operations for Compressor Blade CycU c Modal 
Flutter Analysis 

6P1 generates coordinate system transformation matrices, tables of grid 
point locations, and tables for relating Internal and eaternal grid 
point numbers. 

Go to DMAP No. 203 and print error message If no grid points are present. 

GP2 generates Element Connection Table with Internal Indices. 

GP3 generates Static Loads Table and Grid Point Temperature Table. 

TAl generates element tables for use In matrix assembly and stress 
recovery . 

Go to DMAP No. 203 and print error message If no elements have been 
defined . 

Go to DMAP No. 25 If stiffness matrix Is not user Input. 

Set parameter N0K6GX ° -1 so that the stiffness matrix will not 
be generated In DMAP No. 26. 

1NPUTT1 reads the user supplied stiffness matrix from tape (GINO 
file IHPT). 

Equivalence [Kgg] to iKgg]- 

EMG generates structural element matrix tables and dictionaries for 
later assembly, 

Go to DMAP No, 32 If no stiffness matrix Is to be assembled. 

EMA assembles stiffness matrix [Kgg] and Grid Point Singularity Table. 

Go to DMAP No. 203 and print error message If no mass matrix exists. 

EMA assembles mass matrix [M 1. 

99 

Go to DMAP No. 39 If no weight and balance request. 

GPUG generates weight and balance Information. 

0FP formats weight and balance Information and places It on the 
system output file for printing. 

Equivalence [K* ] to [K--] If no general elements. 

Go to DMAP No. 45 If no general elements. 

SHA3 adds general elements to [l^gg] to obtain stiffness matrix [Kgg3* 

GP4 generates flags defining members of various displacement sets 
(USET)o forms multipoint constraint equations [R„]{u ) » 0, 

9 7 

Go to DMAP No, 211 and print error message If free-body supports 
are present. 

GPCYC prepares segment boundary table. 

Go to DMAP No. 213 and print error message If CYJOtN data Is Inconsistent. 
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55 . 


56 . 


58. 


59. 


61 . 


63. 


6A. 


66 . 


69. 


71. 


72. 


75. 


77. 


Go to DMAP No. 60 If general elements present. 

GPSP determines if possible grid point singularities remain. 

Go to OMAP No. 60 if no grid point singularities remain. 

^FP formats the table of possible grid point singularities and places 
it on the system output file for printing. 

Eguivalence to and to [M„„] if no multipoint 

constraints. "" 99 "" 

Go to DMAP No. 66 If MCE1 and MCE2 have already been executed for 
current set of multipoint constraints. 

MCEl partitions multipoint constraint equations [R^] ° [R^ ! R„] and 
solves for multipoint constraint transformation matrix [G^^^ ° 


•tV“'[R„]. 

MCE2 partitions stiffness and mass matrices 




5- • 

■^nn 1 

1. 

1 

*^nm 

and 


«nn 


''mn • 




^ron 

"mmj 


and performs matrix reductions 


[K„„] ■ ..d 

- [B„„] * lojjt"..) * 

Equivalence to [Kf^] and to if no single-point 

constraints. 

Go to OMAP No. 74 if no single-point constraints. 

SCEl partitions out single-point constraints. 


■«ff i '^fs' 
1 

and £M ] “ 

*• nn-* 

"*^ff [ ^fs 

1 

( 

f 

i 'ss. 


«sf 1 


Equivalence to [K^g] and [Mfjr] to iMggJ if no omitted degrees 


of freedom. 

Go to OMAP No. 82 if no omitted coordinates. 
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SMPl partitions constrained stiffness matrix 


^ J 


I 

K ' 

00 I 


and solves for transformation matrix £6^^] = "^*^ 00 ^"^^ *^ 03 ^ 
and perform* matrix reduction ^^aa^ * ^^oa^^®o^’ 
SMP2 partitions constrained mass matrix 


£m^^3 


and performs matrix reduction 

DPD generates flags defining members of various displacement sets used 
In dynamic analysis (USETD), tables relating Internal and external 
grid point numbers, Including extra points Introduced for dynamic 
analysis, and prepares Transfer Function Pool and Eigenvalue Extraction 
Data. 

Go to DMAP No. 205 and print error message If no Eigenvalue Extraction 
Data. 

Equivalence [G^J to [G^] and fG^3 to [G^] If no extra points Introduced 
for dynamic analysis. 

CYCT2 transforms matrices from symmetric components to solution set. 

Go to OMAP No. 213 and print error message if CYCT2 error was found. 
READ extracts real eigenvalues from the equation 

tSk - »«kkJ<“k' ■ » • 

and normalizes eigenvectors according to one of the following user 
requr-ts : 

1} Unit value of selected coordinate 
2) Unit value of largest components 
3} Unit value of generalized mass. 

0FP formats eigenvalues and summary of eigenvalue extraction Infor- 
mation and places them on the system output flic for printing. 

Go to DMAP No. 209 and exit If no eigenvalues found. 

CYCT2 finds symmetric components of eigenvectors from solution set 
eigenvectors . 
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RIGID FORMATS 

101. Go to OMAP No. 213 and print error mess'-' If CYCT2 error was found. 

102. SORl recovers dependent components of tn^ envectors 



103. S0R2 prepares eigenvectors for output (gIPHIG). 

104, 0FP formats tables prepared by SDR2 and places them on the system 
output file for printing. 

106. APD6 processes the aerodynamic data cards from EOT. AERO and ACPI 
reflect the aerodynamic parameters. PVECT is a partitioning vector 
and GTKA is a transformation matrix between aerodynamic (K) and 
structural (a) degrees of freedom. 

109. PARTH partitions the eigenvector into all sine or all cosine 
components . 

no. SHPYAD calculates modal mass matrix 

IMJ == [«*] 

111. MTRXlfi selects the direct input matrices [KppJt , and 

114. Equivalence [Hpp] to [EppJ to and [Kpp] to [K^^] if no 

no constraints applied. 

7 2 

116. GKAD applies constraints to direct input matrices [Kpp]. [MppJ, and 
P ? * 

^■^dd^* ^*^dd^ (see Section 9.3.3 of the Theoretical Manual) and 

forms [G^^] and [0^,^]. 
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123. 

124. 

126. 

129. 

130. 
132. 

134. 

136. 

139. 

140. 


COMPRESSOR BLADE CYCLIC MODAL FLUTTER ANALYSIS 

GKAM selects eigenvectors to form and assembles stiffness, matrices 

and damping matrices in modal coordinates: 

“ [‘O'fS] ^ f^dh^f^dd^f^dh^ ’ 

I«hh^ “ t'o-r§] * • 

“ [‘rts] * f^dh^t^ddH^dhi 

where 

KDAHP ° 1 KDAMP ° -1 (dffault l 

m^ B modal masses m^ o modal masses 

B m^ 2n f^g(f^) b^ » 0 

4Tt* = d + ig(f^}) 4n*fJmj 

Go to DHAP No. 133 if no plot package is present. 

PLTSET transforms user input into a form used to drive structure 
plotter. 

PRTMS6 prints error messages associated with structure plotter. 

GO to DMAP No. 133 if no undeformed aerodynamic structure pli/t repuest. 

PLiST generates all requested undeformed structure plots. 

PRTMSG prints plotter data and engineering data for each undeformed 
aerodynamic plot generated. 

Go to DMAP No. 205 and print error message if no Eigenvalue 
Extraction Data. 

AHG forms the aerodynamic materix list £Ajj3* the area matrix 

and the downv/ash coefficients CDjj^]. 

Go to DHAP No. 141 if no user-supplied downwash coefficients. 

INPUTT2 provides the user-supplied downwash factors due to extra 
points([0jg], [ojg]). 
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AMF computes the aerodynamic matrls list related to the modal 
coordinates os follows: 


Kt 1 
^^dh3 “ — \- 

^ae 



hii 

^ae^ 




1 

£DJ,] = 


coji 

1 

COJ,] « 



For each pair: 

" t»jS3 * uiOji: 

for each group: 

t'Ijn’ ■ ''‘jP’Voop '“ji'’ 







PARAH initializes the flutter loop couter (FL(80P) to zero. 


Go to next DHAP instruction if cold start or modified restart. 
L00PT(5P will be altered by the Executive System to the proper 
location inside the loop for unmodified restarts within the loop 


Beginning of loop for flutter. 

FAl computes the total aerodynamic mass matrix the total 

aerodynamic stiffness matrix and the total aerodynamic 

damping matrix CBjJj,] as well as a looping table FSAVE. For 
the It-method 

^hh “ tp/2) Qth . 


*^hh 


a^- 

®hh 


"hh 


e 


3.A1-16 (9/30/78) 


COMPRESSOR BU8E CVCLIC MODAL FLUTTER ANALYSIS 


154 . 


156. 

157. 

156. 

160. 

161 

164. 

167. 

169. 

171. 

171. 

176. 

178. 

181. 


CEAO extracts complex eigenvalues from the equation 

fShf’ ' “Ih" * " « 

end normalizes eigenvectors to unit magnitude of largest component. 

Go to OMAP No. 168 If no complex eigenvalues found. 

Go to OMAP No. 163 If no output request for the extra points Intro* 
duced for dynamic analysis or modal coordinates. 


VDR prepares eigenvectors for output, using only the extra points 
Introduced for dynamic analysis and modal coordinates. 

Go to OMAP No. 163 If no output request for the extra points 
Introduced for dynamic analysis or modal coordinates. 


0FP formats eigenvectors for extra points Introduced for dynamic 
analysis and modal coordinates and places them on the system output 
file for printing. 

FA2 appends eigenvectors to PHIML, eigenvalues to CLAMAL, Case Control 
to CASEYY, and V*g plot data to 0VG . 

Go to OMAP No. 172 If there Is Insufficient time for another 
flutter loop. 

Go to OMAP No. 172 If flutter loop complete. 

Go to OMAP No. 207 for additional aerodynamic configuration triplet 
values. 


Go to OMAP No. 179 If no X-V plot pacicage Is present. 
XYTRAN prepares the Input for requested X-Y plots. 


XYPL0T prepares requested X-Y plots of displacements, velocities, 
accelerations , forces I stresses , loads or single-point forces 
of constraint vs. time. 


Go to OMAP No. 215 If no output requests Involve dependent degrees 
of freedom or forces and stresses. 


182. M0DACC selects a list of eigenvalues and vectors whose Imaginary parts 
(velocity in Input units) are dose to a user Input list. 

183. ODRl transforms the complex eigenvectors from modal to physical 
coordinates 

185. Equivalence [ 4 )^] to If no constraints applied. 

186 Go to OMAP No. 188 If no constraints applied. 
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187. 


150. 

151. 

192. 

193. 


195. 

197. 

198. 

199. 

200 . 

202 . 

204. 

206. 


SDRl recovers dependent components of eigenvectors 



end recovers single-point forces of constraint (q } ° 

ikJ.ji*,), p,-j . (dj) . 

Equivalence £l>^] to Cii®] If no extra point.t Introduced for dynamic 
analysis. 

Go to OMAP No. 194 If no extra points present, 

VEC generates a d>s1ze partitioning vector (RP) for the a and e sets. 
PAR7N perforips partition of [$^3 using RP, 



SDR2 calculates element forces and stresses (0EFC1, 0ESC1) and 
prepares eigenvectors and single-point forces of constraint for 
output (I3CPH1P. 0QPC1). It also prepares PCPHIP for deformed plotting. 

0FP formats tables prepared by SDR2 and places them on the system 
output file for printing. 


Go to OMAP No. 194 if no deformed structure plots are requested, 
PL0T prepares all deformed structure plots. 

PRTMS6 prints plotter data and engineering data for each deformed 
plot generated. 

Go to OMAP No. 215 and matce normal exit. 

NSIOAL COMPLEX EIGENVALUE ANALYSIS ERR0R MESSAGE N0. 1 - MASS MATRIX 
REQUIRED F0R M0OAL F0RMULATI0N. 

M^DAL COMPLEX EIGENVALUE ANALYSIS ERR0R MESSAGE N0. 2 - EIGENVALUE 
EXTAACTI0N DATA REQUIRED F@R REAL EIGENVALUE ANALYSIS. 
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g08. M<90AL CGIHPLEX EIGENVALUE ANALYSIS ERR0R MESSAGE N0. 3 > 
EXECUTE M9RE THAN 100 L00PS. 

S10. M0DAL CPPLEX EIGENVALUE ANALYSIS ERR^R MESSAGE N0. 4 - 
VALUES REQUIREO F|9R H0DAL Fg)RMULATI0N. 

212. N0RMAL M0DES WITH CYCLIC SYMMETRY ERR^R MESSAGE Ngl. 4 - 
SUPPSIRTS NglT ALL0UEO. 

214, N6IRMAL M0DES UITH CYCLIC SYMMETRY ERR0R MESSAGE N0. S - 
SYMMETRY DATA ERR0R, 


ATTEMPT TO 
REAL EIGEN- 
FREE 80DV 
CYCLIC 
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Ttte Real Etgen value Summary Table and tbs Real Eigenvalue Analysis 
summery, as described under Normal Mode Analysts, are eutomattcal 1y prlnteo. 
All real eigenvalues are included even though all may not be used in the 
modal formulation. 


The grid point singularities from the structural model are also output. 

A flutter summary for each value of the configuration parameters is 

printed out If PRINT“VESB. This shows p, k , V o and f 

sound’ ’ ^ 

for each complex eigenvalue. 

V-g and V-f plots may be requested by the ItV^UT control cards bv 
specifying the curve type as VG. The “points” are loop numbers and the 
“components” are G or F, 

Printed output of the following types, sorted by complex eigenvalue 
root number (SORTI) and (m, tc, p) may be requested for all complex eigenvalues 
kept, as either real and imaginary parts or magnitude and phase angle 
(0” - 360” lead): 

1. The eigenvector for a list of PHTSICAL points (grid points, 
extra points) or SOLUTION points (modal coordinates and extra points). 

2. Nonzero components of the single-point farces of constraint for 
a list of PHYSICAL points. 

3. Complex stresses and forces in selected elements. 

The ^FREQUENCY case control card can select a subset of the complex eigenvectors 
for data recovery. In addition, undeformed and deformed shapes mav be reouesteci. 
Undeformed shapes may include only structural elements. 



I 

I 

I 
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COKPRESiSOR BLADE CYCLIC MODAL FLUTTER ANALYSIS 


3.SH A Cise Control Deck and Papameters for Comppessor Blade CtfcHc 
Modal Fluttar Analysts 

1. Dnl^ one subcase Is allowed 

2. Desired direct Input matrices for stiffness and 

damping 16^0-] roust be selected via the keywords K2PP, M2PP, or 
B2PP. 

3. CMETH0D roust be used to select an EI6C card from the Bulk Uata Deck. 

<1. FHE7H0D roust be used to select a FLUTTER card from the Bulk Data Deck, 

5. NETH0D must be used to select an EIGR card that exists In the Bulk 
Data Deck. 

6. SDAMPING roust be used to select a TA6DMP1 table If structural damolng 
Is desired. 

7. An SPC set must be selected unless the model Is a free bodv or all 
constraints are specified on GRID cards, Scalar Connection Cards or 
with General Elements. 

8. Each NASTRAN run calculates modes for only one symmetry Index, 1C. 

The following user parameters are used In Compressor Blade Cyclic Modal 

Flutter Analysis. 

1. 6RDPNT - optional - A positive Integer value of this parameter will 
cause the Grid Point Weight Generator to be executed and the result* 
Ing weight and balance information to be printed. All fluid related 
masses are Ignored. 

2. MTHASS - optional - The terms of the structural mass matrix are 
multiplied by the real value of this parameter when they are 
generated In SMA2. Not recommended for use In hvdroelastlc 
problems. 

3. C0UPMA55 - CPBAR. CPRgP. CPOUADl . CPOUADZ. CPTRIAl. CPTRtA? . 

CPTUBE. CPODPLT. CPTRPLT. CPTRfl^C. - optional - These parameters 
will cause the generation of coupled mass matrices rather than 
lumped mass matrices for all bar elements, rod elements, and plate 
elements that Include bending stiffness. 
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4. LFREQ and HFREQ - reRufred unless LM0DFS is used. The real values 
of these parameters give the frequency range (LFREQ is lower 
limit and HFREQ is upper limit) of the modes to be used in the 
modal formulation. To use this option, LM0OES must be $et to 0. 

5. LM0DES ” used unless set to 0. The Integer value of this parameter 
is the number of lowest modes to be used in the modal formulation. 
The defalult value will request all modes to be used. 

6. N0DJE - optional in modal flutter analysis. A positive Integer 
of this parameter indicates that user supplied downwash matrices 
due to extra points are to be read from tape via the INPUTT2 
module in the rigid format. The default value is -1. 

7. PI ■ P2 and P3 - required in modal flutter analysis when using 
N0OJE parameter. See Section 5.3.2 for tape operation parameters 
required by 1NPUTT2 module. The defaults for PI, P2, and P3 are 
-1, ll and TAPEID, respectively. 

S* - optional in modal flutter analysis. Velocities are 

divided by the real value of this parameter to convert units 
or to compute flutter indices. The default value is 1.0. 

9. PRINT - optional in modal flutter analysis. The BCD value N0, 
of this parameter will suppress the automatic printing of the 
flutter summary for the k method. The flutter summary table 
will be printed if the BCD value is YES for wing flutter, or 
VESB for blade flutter. The default is YES. 

10. CTYPE - required - the BCD value of this parameter defines 
the type of cyclic symmetry as follows: 

(1) R0T - rotational symmetry 

(2) DRL > dihedral symmetry, using right and left halves 

(3) OSA - dihedral symmetry, using symmetric and anti* 
symmetric components 

11. WSEfiS - required - the integer value of this parameter is the 
number of identical segments in the structural model. 
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COMPRESSOR BLADE CVCLtC MODAL FLUTTER ANALYSIS 

1?. CYCSEQ " optional - the Integer value of this parameter specifies 
the procedure for sequencing the equations In the solution set. 

A value of specifies that all cosine terms s,hould be sequenced 

before all sine terms, end e value of «*1 for alternoting the 
cosine and sine terms. The default value Is -1. 

13. KINDEH - required In compressor blade cyclic modal flutter analysis 
The Integer value of this parameter specifies a single value of 
the harmonic lnde». 

Id, MIWMACH - optional In blade flutter analysis. This Is the minimum 
Mach number above which the supersonic unsteady cascade theory Is 
valid. The default Is 1.01. 

15. HAXHACH ' optional in blade flutter analysis. This Is the maslmum 
Mach number below which the subsonic unsteady cascade theory Is 
valid. The default value Is 0.80. 

16. IREF • optional In blade flutter analysis. This defines the 
reference streamline number. IREF must be equal to a SLN on a 
STREAML2 bulk data card. The default value, •!, represents the 
streamsurf ace at the blade tip. If IREF does not correspond to 
a SLN, then the default will be taken. 

IF. MTYPE - optional In cyclic modal blade flutter analysis. This 
controls which components of the cyclic modes are to be used In 
the modal formulation, MTYPE = SINE for sine components and 
MTYPE o COSINE for cosine components. The default BCD value Is 
COSINE. 

18. KGfilW - optional in blade flutter analysis. A positive Integer 
of this pamieter Indicates that the user supplied stiffness 
raatrl« Is to be read from tape (GINO file INPT) via the 
IfIPUTTI module In the rigid format. The default Is -1. 
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6.1,1,16 Rigid Format Error Messages for Static Aerothermoelast ic Analysis with 
Oifferential Stiffness 

N0. 1 - m STRUCTURAL ELEMENTS HAVE BEEN DEFINED. 

The differential stiffness matrix Is null because no structural elements 
have been defined with Connection cards. 

M0. 2 - FREE B0OY SUPPORTS H0T ALL0UED. 

Free bodies are not allowed in Static Analysis with Differential 
Stiffness. The SUPP0RT cards must be removed from the Bulk Data Deck 
and other constraints applied if required for stability. 

H0. 4 - MASS MATRIX REQUIRED F0R HEIGHT AND 6ALAHCE CALCULAT10WS . 

The mass matrin is null because either no elements were defined with 
Connection cards, nons tructural mass was not defined on a Property card, 
or the density was not defined on a Material card. 

H0. 5 - 110 INDEPENDENT DEGREES 0F FREEO0H HAVE OEEN DEFINED. 

Either no degrees of freedom have been defined on GRID, SP01NT or Scalar 
Connection cards, or all defined degrees of freedom have been constrained 
by SPC, HPC, 0HIT. or GROSET cards, or grounded on Scalar Connection cards. 
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6.1.3. 3 Rigid Format Error Messages for Compressor Blade Cyclic Modal Flutter 
Analysis. 

N0. I - MASS MATRIX REQUIRED F0R MODAL FORMULATION 

The mass matrix is null because either no structural elements were defined 
with Connection cards, nonstructural mass was not defined on a Property card 
or the density was not defined on a Material card. 

NO. 2 - EIGENVALUE EXTRACTION DATA REQUIRED FOR REAL EIGENVALUE ANALYSIS 

Eigenvalue extraction data must be supplied on an E16R card and METHOD 
must select an EIGR set in the Case Control Deck. 

HO. 3 > ATTEMPT TO EXECUTE MORE THAN 100 LOOPS. 

An attempt has been made to use more than 100 different sets of direct 
input matrices. This number can be increased by altering the REPT instruc- 
tion following FA2. 

HO. 4 - REAL EIGENVALUES REQUIRED FOR MODAL FORMULATION. 

Ho real eigenvalues were found in the frequency range specified by the 
user. 

NO, 5 - FREE DODV SUPPORTS NOT ALLOWED. 

Free bodies are not allowed in Statics with Cyclic Symmetry. The SUPORT. 
cards must be removed from the Bulk Data Deck and other constraints 
applied if required for stability. 

NO. 6 - CYCLIC SYMMETRY DATA ERROR. 

See Section 1.12 for proper modeling techniques and corresponding PARAH 
card requirements. 
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A 

P 

Parameter value used to control utility module MATGPR print of 
A-set matrices. 

ABFL 

DBM 

[A|j - Hydroelastic boundary area factor matrix. 

ABFLT 

DBM 

Transpose of [Ajj 

ACCE 

IC 

Abbreviated form of ACCELERATI0N. 

ACCE 

IS 

Acceleration output requests. 

ACCELERAT10N 

IC 

Output request for acceleration vector. (UM-2.3, 4.2} 

ACPT 

DBT 

Aerodynamic Connection and Property Data. 

Active column 

PH 

Column containing at least one nonzero term outside the band. * 

ADD 

FMM 

Functional module to add two matrices together. 

ADD 

M 

Parameter constant used in utility module PARAM. 

ADDS 

FMM 

Functional module to add up to five matrices together. 

ADR 

FMS 

Aerodynamic data recovery. 

ADUM1 

IB 

Defines attributes of dummy elements 1 through 9. 

AEFACT 

IB 

Used to Input lists of real numbers for aeroelastic analysis. 

AERP 

DBT 

Aerodynamic Matrix Generation Data. 

AER0 

IB 

Gives basic aerodynamic parameters. 

AER0F 

y: 

Aerodynamic force output request. 

AER0F0RCE 

IC 

Requests frequency dependent aerodynamic loads on interconnection 
points in aeroelastic response analysis. 

AJJL 

DBML 

Aerodynamic Influence Matrix List. 

ALG 

FMS 

Aerodynamic load generator. 

ALGDB 

DBT 

Aerodynamic Load input for ALG (D-16). 

ALL 

IC 

Output request for all of a specified type of output. 

ALLEDGE TICS 

IC 

Request tic marks on all edges of X-Y plot. 

ALOAD 

P 

Set negative if no aerodynamic loads (D-16). 

ALTER 

lA 

Alter statement for DMAP or rigid format. 

ALWAYS 

P 

Parameter set to -1 by a PARAM statement. 

AM6 

FMA 

Aerodynamic Matrix Generator. 

AMP 

FMA 

Aerodynamic Matrix Processor. 

AND 

M 

Parameter constant used in executive module PARAM. 

A0ljr$ 

M 

Indicates restart with solution set output request, 

APD 

FMA 

Aerodynamic pool distributor and element generator. 

APDB 

FMS 

Aerodynamic pool distributor for blades. 
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APP 

lA 

Control card which specifies approach (DISP, DMAP, HEAT or AER0) 

APP 

P 

Approach flag used for modules with several functions. 

APPEND 

M 

File may be extended (see FILE). 

APRESS 

PU 

Positive Value generates aerodynamic pressures. 

ASOHAP 

FM5S 

Assemble substructure DMAP. 

ASET 

IB 

Analysis set coordinate definition card. 

ASfTl 

Ifi 

Analysis set coordinate definition card. 

ATEMP 

PU 

Positive value generates aerodynamic temperatures. 

AUT15 

1C 

Requests X-Y plot of autocorrelation function. 

Alff0 

D8T 

Autocorrelation function table. 

AXES 

1C 

Defines orientation of object for structure plot. 

AXlC 

DBT 

Generated by Input File Processor 3 (IFP3) for axisymmetric 
conical shell problems. 

AXIC 

IB 

Axisymmetrical conical shell definition card. When this card 
is present, most other bulk data cards may not be used. 

AXIF 

IB 

Controls the formulation of a hydroelastic problem. 

AXISVHS 

M 

Indicates restart with conical shell or hydroelastic elements. 

AXISYMMETRIC 

IC 

Selects boundary conditions for axisymmetric shell problems 
or specifies the existence of hydroelastic fluid harmonics. 

AXSL0T 

IB 

Controls the formulation of acoustic analysis problems. 


7.1-4 (12/29/78) 


• rr«0 ^<rv vrw • 





NASTRAN DICT JONARY 


CSL0T3 

IB 

Triangular slot element connection definition card for acoustic 
analysis. 

CSL0TA 

IB 

Quadrilateral slot element connection definition card for 
acoustic analysis. 

CSP 

IC 

Selects a set of contact surface points. 

CSP 

IB 

Contact surface point set definition. 

CSTM 

DRS 

Local coordinate system transformation matrices. 

CSTM 

DBT 

Coordinate System Transformation Matrices. 

CSTMA 

DBT 

Coordinate System Transformation Matrices - Aerodynamics. 

CTETRA 

IB 

Tetrahedron element connection definition card. 

CT(3RDRG 

IB 

Toroidal ring element connection card. 

CTRAPR6 

IB 

Trapezoidal ring element connection card. 

CTRBSC 

IB 

Basic bending triangular element connection definition card. 

CTRIAl 

IB 

General triangular element connection definition card. 

CTRIA2 

IB 

Homogeneous triangular element connection definition card. 

CTRIARG 

IB 

Triangular ring element connection card. 

CTRIM 

IB 

Linear strain triangular element connection. 

CTRMRM 

IB 

Triangular membrane element connection definition card. 

CTRPLT 

16 

Triangular bending element connection definition card. 

CTRPLTl 

IB 

Triangular element connection. 

CTRSHL 

IB 

Triangular shell* element connection. 

CTUBE 

IB 

Tube element connection definition card. 

awisT 

IB 

Twist panel element connection definition card. 

QYPE 

PU 

Defines the type of cyclic symmetry. 

CURVLINESYMB0L 

IC 

Request to connect points with lines and/or to use symbols for 
X-Y plots. 

CVISC 

IB 

Viscous damper element connection definition card. 

CWE06E 

IB 

Wedge eleme.it connection definition card. 

CYCIO 

PU 

A parameter which specifies the form of the Input and output 
data using cyclic symmetry. 

CVCSEQ 

PU 

A parameter which specifies the procedure for sequencing the 
equations in the solution set using cyclic symmetry. 
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FM0DE 

P 

F0L 

DBT 

F0RCE 

IB 

F0RCE 

IC 

F0RCE1 

IB 

FI9RCE2 

IB 

F0RCEAX 

IB 

FREEPT 

IB 

FREQ 

IB 

FREQ$ 

M 

FREQl 

IB 

FREQ2 

liJ 

FREQRESP 

P 

FREQUENCY 

IC 

FREQY 

P 

FRL 

DBT 

FRLG 

FMA 

FRQSET 

P 

FRRD 

FMS 

FRRD2 

FMA 

FSAVE 

DBT 

FSLIST 

IB 

Functional Module 

PH 

FXCOOR 

PU 

FYCOOR 

PU 

FZCOOR 

PU 


Mode number of first mode selected by user in modal dynamics 
formulations. 

Frequency response output frequencies. 

Static load definition (vector). 

Request for output of element forces. 

Static load definition (magnitude and two grid points). 

Static load definition (magnitude and four grid points). 

Static load definition for conical shell problem. 

Defines point on a free surface of a fluid for output purposes. 
Frequency list definition. 

Indicates restart with change in frequencies to be solved. 

Frequency list definition (linear increments). 

Frequency list definition (logarithmic increments). 

Parameter used in SDR2 to indicate a frequency response problem. 

Selects the set of freqpjencies to be solved in frequency 
response problems. 

Selects between frequency and transient in aeroelastic response. 
Frequency Response List. . 

Frequency response load generator. 

Used in FRRD to indicate user selected frequency set. 

Frequency and Random Response - Displacement approach. 

Frequency response, with aerodynamic matrix capability. 

Flutter Storage Save T^ble. 

Defines a free surface of a fluid in a hydroelastic problem. 

An independent group of subroutines that perform a structural 
analysis function. 

Aerodynamic modification factor (0-16). 

Aerodynamic modification factor (0-16). 

Aerodynamic modification factor (0-16). 
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IC 


IC 

Transient analysis initial condition set selection. 

ID 


lA 

The first card of ariy data deck is the identification (ID) 
card. The two data items on this card are BCD values. 

IFAIL 


P 

Set negative by ALG if convergence fails (0-16). 

IFF 


EM 

Input File Processor. The preface module which processes the 
sorted Bulk Data Deck and outputs various data blocks depending 
on the eard types present in the Bulk Data Deck. 

IFPl 


EM 

Input File Processor 1. The preface module which processes the 
Case Control Deck and writes the CASECC, PCDB and XYC08 data 
blocks. 

IFP3 


EM 

Input File Processor* 3. The preface module which processes 
bulk data cards for a conical shell problem. 

IFP4 


EM 

Input File Processor 4. The preface module which processes 
bulk data cards for a hydroelastic problem. 

IFT 


FMA 

Inverse Fourier transformation. 

IFTM 


PU 

A parameter which selects the method for integration of the 
Inverse Fourier Transform. 

IFTSKP 


L 

Used to skip IFT module. 

IMAG 


IC 

Output request for real and imaginary parts of some quantity 
such as displacement, load, single point force of constraint 
element force, or stress. 

IMPL 


P 

Parameter constant used in executive module PARAM. 

INCLUDE 


IC • 

Used in set definition for structure plots. 

INERTIA 


P 

Used in printing rigid format error messages for Static 
Analysis with Inertia Relief (D-2). 

INERTIA RELIEF 

lA 

'Selects rigid format for static analysis with inertia relief. 

INPT 


M 

A reserved NASTRAN physical file which must be set up by 
the user when used. 

INPUT 


FMU 

Generates most of bulk data for selected academic problems. 

Input Data 

Block 

PH 

A data block input to a module. An input data block must have 
L’cen previously output from some module and may not be written on. 

Input Data 

Cards 

PH 

The card input data to the NASTRAN system are in 3 sets, the 
Executive Control Deck, the Case Control Deck, and the Bulk 
Data Deck. 

INPuni 


FMU 

Reads data blocks from GIN0-written user tapes. 

INPUTT2 


FMU 

Reads data blocks from F0RTRAN-written user tapes. 

INPlfTT3 


FMX 

Auxiliary input file processor. 

INPUm 


FMX 

Auxiliary input file processor. 

Internal Sort 

PH 

Same order as external sort except when SEQGP or SEQEP bulk data 


cards are used to change the sequence. 
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INV 

IB 

Inverse power eigenvalue analysis option - specified on EIGR, 
EIGB or EIGC cards. 

rpRT 

PU 

Controls printing of aerodynamic results. 

IREF 

PU 

Defines reference streamline for blade flutter, 

IRES 

PU 

Causes printout of residual vectors In statics rigid formats 
when set nonnegative via a PARAM bulk data card. (D-1, 0-2, 
D-4, D-5, D-6). 

I START 

PU 

A parameter which causes the alternate starting method to be 
used in transient analysis. 

ITEMS 

IS 

Specifies data items to be copied In or out. 


JUMP EM Unconditional transfer DMAP statenent. 

JUMPPL0T P Parameter used by structure pi otter modules PLTSET and PL0T. 
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KDSS 

DBM 

[K^j] - Partition of differential stiffness matrix. 

KE 

PH 

Flutter analysis method. 

KEF 

DBM 

[K^f] - Partition of stiffness matrix. 

KFS 

DBM 

[Kfj!) - Partition of stiffness matrix. 

KGG 

DBM 

[K ] - Stiffness matrix generated by Structpral Matrix 
’’ Assembler. 

K6SIN 

PU 

Positive value selects K66K from INPUTTl , 

K6GIN 

DBM 

Sura of elastic and differential stiffness 
matrices (D-16, A-9). 

KGGL 

DBM 

£ 

[K 3 - Stiffness matrix for linear elements. Used only in 
the Piecewise Linear Analysis Rigid Format (D-GV 

K6GLPG 

P 

Purge flag for KGGL matrix. If set to -1. It Implies that 
there are no linear elements In the structural model. (D-6), 

KGGNL 

DBM 

Cm"] - Stiffness matrix for the nonlinear elements. Used 
in the Piecewise Linear Analysis Rigid Format only. 

KGG5UM 

DBM 

Sum of KGGNL and KGGL, Used in the Piecewise Linear Analysis 
Rigid Format only. (D-6). 

KGGX 

DBM 

[Kgg] - Stiffness matrix excluding general elements. 

KGGXL 

DBM 

vSL 

[K^ ] -Stiffness matrix for linear elements (excluding general 
elements). Used in the Piecewise Linear Rigid Format 
only, (D-6). 

KGGY 

DBM 

[K^g] - Stiffness matrix of general elements. 

KHH 

DBM 

Cm.. ] - Stiffness matrix used in modal formulation of dynamics 
problems (D-10 thru D-12). 

KINDEX 

PU 

A purameter which specifies a single value of the harTOnic 
index using cyclic syrmietry. 

K1.L 

DBM 

CMj„3 - Stiffness matrix used in solution of problems in static 
analysis (D-1 , D-2, D-4, D-5, D-6). 

MLR 

DBM 

CKjj^^] - Partition of stiffness matrix. 

Kmx 

PU 

A parameter which specifies the maximum value of the harmonic 
index using cyclic symmetry. 

KMTX 

DBS 

Stiffness matrix. 

KNN 

DBM 

CMpn] ■ Partition of stiffness matrix. 

K(iA 

DBM 

CK^g] - Stiffness matrix partition. 

Km 

DBM 

CMoq] - Partition of stiffness matrix. 

KRR 

DBM 

Cm..-] - Partition of stiffness matrix, 
rr 

MSS 

DBM 

CMjj] - Partition of stiffness matrix. 

KTOTAL 

06M 

Sura of elastic and differential stiffness 
matrices (D-16, A-9). 

MTOUT 

PU 

Postive value outputs KTOTAL to OUTPUTl. 

KXHH 

DBM 

Total modal stiffness matrix - h-set. 
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MAHS 

16 

MAX 

IB 

MAXIMUM DEF0RMATI0N 

IC 

MAX IT 

p_y 

MAXLINES 

IC 

NA8MACH 

PU 

MCEl 

FMS 

HCE2 

FMS 

MOD 

DBM 

MDEMA 

P 

MOLCEAD 

P 

MDLFRRO 

P 

MOLTRD 

P 

MEFl 

OBT 

MEF2 

DET 

MERGE 

FMM 

MES1 

DBT 

MES2 

DBT 

METHOD 

1C 

METHOD 

IS 

METHODS 

N 

MFF 

DBM 

MGG 

DBM 

MHH 

DBM 

MI 

DBM 

MIND 

P 

MINMACH 

PU 

MKAER01 

16 

MKAER02 

IB 


Specifies table references for temperature-dependent i 
anisotropic, thermal material properties. 

Eigenvector normalization option - used on EIGR, EIGB and 
EIGC cards. 

Indicates scale for deformed structure plots. 

Limits masimurn number of Iterations In nonlinear heat transfer 
analysis. 

Maximum printer output line count - default value Is 20000. 
Controls subsonic unsteady cascade calculations. 

Multipoint Constraint Eliminator - part 1. 

Multipoint Constraint Eliminator - part 2. 

[M..] - Mass matrix used in direct formulation of dynamics 
problems (D-7 thru D-9). 

Parameter indicating equivalence of MOD and MAA. 

Used In printing rigid format error messages for modal 
complex eigenvalue analysis (0-10). 

Used in printing rigid format error messages for modal 
frequency response (D-11). 

Used in printing rigid format error messages for modal 
transient response (0-12). 

Modal element forces, Sort 1 for 0FP. 

Modal element forces. Sort 2 for 0FP. 

Matrix merge functional module. 

Modal element stresses. Sort 1 for 0FP. 

Modal element stresses. Sort 2 for 0FP. 

Selects method for real eigenvalue analysis. 

Identifies EIGR Bulk Data card. 

Indicates restart with change in eigenvalue extraction 
procedures . 


[M^^] - Partition of mass matrix. 

[Mgg] - Mass matrix generated by Structural Matrix Assembler. 

[M.. ] - Hass matrix used in modal formulation of dynamics 
problems (D-10 th.’u 0-1.2). 

[m'j - Modal mass matrix. 

Minimum diagonal term nf [U^q3- 

Controls supersonic unsteady cascade calculations. 
Provides table of Mach numbers and reduced frequencies (k). 
Provides list of Mach nurrbers (m) and reduced frequencies (k). 
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POUMi 

IB 

Property definition card for dunany elements 1 through 9, 

PELAS 

IB 

Scalar elastic property definition card. 

PEN 

IC 

Selects pen size for structure plots using table plotters. 

PEN SIZE 

IC 

Selects pen size for X-Y plots using table plotters. 

PERSPECTIVE 

IC 

Specifies perspective projection for structure plots. 

PFILE 

P 

Parameter used by PL0T module. 

PG 

DBM 

Incremental load vector used in Piecewise Linear Analysis (D-6). 

PG 

DBM . 

Statics load vector generated by SSGl, 

PGEOH 

PU 

Controls punching of GRID, CTRIA’2, PTRIA2 
and DTI cards from ALG. 

PG1 

DBH 

Static load vector for Piecewise Linear Analysis (0-6). 

PGG 

DBM 

Appended static load vector (D-1, D-2). 

PGVl 

DBM 

Matrix of successive sums of incremental load vectors used only 
in Piecewise Linear Analysis Rigid format (0-6). 

PHASE 

IC 

Requests magnitude and phase form of complex quantities. 

Phase 1 

PH 

An operation to create matrices and load vectors for substruc- 
turing analysis. 

Phase 2 

PH 

An operation to combine and reduce matrices and load vectors 
for substructuring analysis. 

Phase 3 

PH 

An operation to recover detailed data reduction for substruc- 
turing analysis. 

PHBDV 

IB 

Boundary element property definition card for heat transfer 
analysis. 

PHF 

OBM 

Total frequency response loads, modal. 

PHFl 

DBM 

Non-gust frequency response loads, modal. 

PHIA 

OBM 

[A] - Real eigenvectors - solution set. 

d 

PHIAH 

DBM 

Eigenvectors, A-set. 

PHIO 

OBM 

[A ] - Complex eigenvectors - solution set, direct formulation. 

PHIDH 

DBM 

- Transformation matrix between modal and physical 
coordinates. 

PHIG 

DBM 

[4>g] ' Real eigenvectors. 

PHIH 

DBM 

' Complex eigenvectors - solution set, modal formulation. 

PHIHL 

OBM 

Appended complex mode shapes - h-set. 

PHIR 

OBM 

Eigenvectors, aerodynamic box points. 

PHIL 

DBS 

Left side eigenvector natrix from unsymmstric CREOUCE operation. 

PHIP 

DBM 

Eigenvectors, P-set. 

PHI PA 

OBM 

Eigenvectors, P A-set. 
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■ 


Output media request (PRINT or PUNCH) 

Used to punch and print the problem deck from UMF or copy the 
problem deck from UNF onto NUMF and punch and print it. 

DMAP statement which causes conditional purging of data blocks. 

A data block is said to be purged vdidn it i$ flagged in the FIAT , 

so that it will not be allocated to a physical file and so that ! 

modules attempting to access it will be signaled. | 

Displacement vector used for plots, PA-set for aeroelastic | 

Load vectors. j 

Partitioning vector for cyclic modes (A-9). j 

Viscous element property definition card. ,j 

Parameter value table. The PVT contains BCD names and values | 

of all parameters input by means of PARAM bulk data cards. It 
is generated by the preface module IFP and is written on the | 

Problem Tape. j 

INPUTT2 rewind option. j 

INPLTTT2 unit number. 

INPtJT_T2 tape id. 
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T' 


SET 

IC 

Definition of a set of elements, grid and/or scalar and/or extra •; 

points, frequencies, or times to be used in selecting output. ; 


SETT 

IB 

Defines a set of structural grid points by a list. 


SET2 

IB 

Defines a set of structural grid points by aerodynamic macro 
elements. 


5ETVAL 

FMU 

Parameter value initiator. 


SGEN 

FMSS 

Substructure table generator. 

> 

SHEAR 

IC 

Requests structure plot for all shear panel elements. 


SIGMA 

PU 

Defines Stefan-Bol tzmann constant in heat transfer analysis. 

' 

SIGN 

PU 

Controls the type of static aerothermo- 
elastlc analysis performed. 


SIL 

DBT 

Scalar Index List for all grid points and extra scalar points 
introduced for dynamic analysis. 

I 

! 

1 : 

5UGA 

DBT 

Scalar Index List - Aerodynamic boxes only. 

i 5 

S1NC0N 

PU 

Controls the automatic stiffness matrix singularity removal. 

1 

t 

i 

SINE 

1C 

Conical shell request for sine set boundary conditions. 


SING 

P 

-1 if [Kjjq] is singular. 


SINGLE 

P 

No single-point constraints. 


SKIP BETWEEN FRAMES 

1C 

Request to insert blank frames on SC 4020 plotter for X-V 
plots. 

1; 


SKJ 

DBM 

Integration matrix. 

1 

■i 

SKPMGG 

P 

Parameter used in statics to control execution of functional 
module SMA2. 

■ ^ 

SKPPLT 

L 

Used to skip plot. 


SLBDY 

IB 

Defines list of points on interface between axisymmatric fluid 
and radial slots. 

\ 

SLPAD 

IB 

Scalar point load definition. 

t 

SLT 

DBT 

Static Loads Table. 


SMAl 

FMS 

Structural Matrix Assembler - phase 1 - generates stiffness 

i 



matrix And structural damping matrix [K^g], 

i 

! 

1 

SMA2 

FMS 

Structural Matrix Assembler - phase 2 - generates mass i 




matrix and viscous damping matrix [®gg3* 1 


SMA3 

FMS 

Structural Matrix Assembler - phase 3 - add general element j 

contributions to the stiffness matrix [K ]. i 

99 


SMPl 

FMS 

Structural Matrix Parti tioner - part 1. 


SMP2 

FMS • 

Structural Matrix Partitioner - part 2. 


SMPYAD 

FMM 

Performs multi ply-add matrix operation for up to five 
multiplications and one addition. 
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Spill 

PH 

Secondary storage devices ere used because there Is insufficient 
main storage to perform a matrin calculation or a data processing 
operation. 

SPLINE 

DBT 

Splining Data Table. 

SPLINEI 

IB 

Defines surface spline. 

SPL1NE2 

IB 

Defines beam sp1 ine. 

SPLINES 

IB 

User data to interpolate deflections at aerodynamic degrees of 
freedom. 

SP01NT 

IB 

Scalar point definition card. 

SSGl 

FMS 

Static Solution Generator - part 1. 

SSG2 

FMS 

Static Solution Generator - part 2. 

SSG3 

FMS 

Static Solution Generator - part 3. 

SSG4 

FMS 

Static Solution Generator - part 4. 

SSGHT 

FMH 

Solution generator for nonlinear heat transfer analysis. 

STATIC 

IC 

Requests deformed structure plot for problem in Static Analysis. 

STATIC ANALYSIS WITH 
CYCLIC SYMMETRY 

lA 

Selects rigid format for static analysis using cyclic symmetry. 

STATIC HEAT TRANSFER 
ANALYSIS 

lA 

Selects rigid format for linear static analysis using heat 
transfer. 

STATICS 

lA 

Selects statics rigid format for heat transfer or structural 
analysis. 

STATICS 

P 

Parameter used in SDR2 to indicate Static Analysis. 

STEADY STATE 

lA 

Selects rigid format for nonlinear static heat transfer 
analysis. 

STEPS 

I' 

Frequency or time step output request for substructuring. 

STERE0SC0PIC 

IC 

Requests stereoscopic projections for structure plot. 

5TREAML 

PU 

Controls the punching of STREAMLl and 
STREAML2 cards from ALG. 

STREAMLl 

IB 

Gives blade streamline data. 

STREAML2 

IB 

Gives blade streamline data. 

STRESS 

IC 

Requests the stresses in a set of structural elements or the 
velocHy components in a fluid element in acoustic cavity 
analysis. 

Structural Element 

PH 

One of the finite elements used to represent a part of a 
structure. 

STST 

NP 

Defines the singularity tolerance in EHG. 

SUBCASE 

IC 

Subcase definition. 

SUBCASES 

IS 

Subcase output request. 

SUBC0M 

IC 

This subcase is a linear combination of previous subcases. 

SUBPHl 

FMSS 

Substructure, Plase 1. 
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YTMA7 

IC 

Do not plot points whose Y value lies above this value for 
upper half frame. 

YTMIN 

IC 

Do not plot points whose Y value lies below this value for 
upper half frame. 

YTITLE 

1C 

Y-8Kis title for upper half frame. 

YTVALUE PRINT SKIP 

IC 

Request to suppress labeling tic marks over the specified 
interval for upper half frame. 

YVALUE PRINT SKIP 

1C 

Request to suppress labeling tic marks over the specified 
interval . 

YZ 

IC 

Requests Y and Z vectors for deformed structure plot. 


Z IC Requests Z vector for deformed structure plot. 

20RIGM PU Aerodynamic modification factor (0-16). 
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Tills section contains new and replacement pages for Level 17,7 of 
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2.3.40.6 

A8FL 
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2.3.62.9 
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2.3-250 -p 

2.3.87.5 
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2.3-297 
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2.3.2.11 

AXIC 

IFP 
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SMPl 
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BOD 
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BDICT 

EMG 

2.3-267 

2.3.54.1 

BDP0OL 

BMG 

2.3-239 

2.3.70.5 

BELM 

EMG 

2.3-267 

2.3.17.8 

BFF 

SCEl 

2.3-89 

2.3.69.1 

BGG 

EMA 

2.3-264 

2.3.10.2 

BGG 

SMA2 

2.3-76 

2.3.77.4 

BGP 

PLTHRG 

2.3-282 

2,3.62.7 

8GPA 

APO 

2.3-249 

2.3.76.6 

BGPDT 

SGEN 

2.3-279 

2. 3. 3. 5 

BGPOT 

GP1 

2.3-44 

2.3.55.2 

B6PDP 

PLTTRAN 

2.3-239 

2,3.49.2 

BHH 

GKAM 

2.3-225 

2.3.16.5 

BNN 

MCE2 

2.3-86 

2.3.27.7 

BQG 

SORl 

2.3-112 

2.3.66.3 

BXHH 

FAl 

2.3-259 

2.3.41.8 

B20D 

GKAD 

2.3-181 

2.3.40.3 

B2PP 

MTRX IN 

2.3-177 

2.3.76,2 

CASEC 

SGEN 

2.3-278 

2. 3. 1.1 

CASECC 

IFPl 

2,3-1 

2.3.86.1 

CASECCA 

ALG 

2.3-295 
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DATA BLOCK DESCRIPTIONS 

- GENERAL COMMENTS AND 

INDEXES 

Section Number 

Data Block Name 

Output from Module 

Pane Number 

2.3.38.2 

ECPTNLl 

PLA4 

2.3-175 

2. 3.4.1 

ECT 

GP2 

2.3-46 

2.3.62.5 

ECTA 

APO 

2.3-247 

2. 3. 2.8 

EOT 

IFP 

2.3-30 

2.3.29.4 

EED 

OPO 

2.3-147 

2.3.77.3 

ELS 

PLTMR6 

2.3t282 

2.3. 5.4 

ELSETS 

PLTSET 

2.3-48 

2 . 3 . 2 . 5 

EPT 

IFP 

2.3-23 

2.3.62.4 

EQAER0 

APO 

2.3-247 

2.3.29.5 

EQOYN 

OPD 

2.3-149 

2.3.77.6 

EQEX 

PLTNHG 

2.3-283 

2, 3. 3. 2 

EQEXIN 

GPl 

2.3-41 

2.3.76.4 

EOEXIN 

SGEN 

2,3-278 

2. 3.8.1 

EST 

TAl 

2.3-56 

2.3.34.2 

ESTL 

PLAl 

2.3-165 

2.3.34.3 

ESTNL 

PLAl 

2.3-166 

2.3.37.2 

ESTNLl 

PLA3 

2.3-174 \ 

2.3.29.9 

FRL 

OPD 

1 

2.3-153 ^ 

2.3.62.11 

FLIST 

APO 

2.3-252 ’ 

2.3,87.2 

FLIST 

APOB 

2.3-296 

2.3.66.1 

FSAVE 

FAl 

2.3-268 i 

1 

2.3.84.4 

GCYC8 

CYCTl 

2.3-293 i 

2.3.84,3 

GCYCF 

CYCTl 

2.3-292 

2. 3.8. 2 

GEI 

TAl 

2.3-70 

2.3.2. 1 

GE8M1 

IFP 

2.3-7 

2. 3. 2. 2 

GE0H2 

IFP 

2.3-9 

2. 3.2.3 

GE0M3 

IFP 

2.3-16 

2.3.86.2 

GE0H3A 

ALG 

2.3-295 

2. 3. 2. 4 

GE0K4 

TCP 

2.3-19 

2,3.15.1 

GM 

HCEl 

2.3-84 •; 

2.3,41.4 

GMO 

GKAO 

2.3-180 1 
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Section Number Data Block Name Output from Module Page Number 


2.3.18.1 

60 

SMP1 

2.3-92 

2.3.41.5 

60D 

GKAO 

2.3-180 

2. 3. 8. 4 

6PCT 

TAl- 

2.3-71 

2.3.76.5 

GPOT 

SGEN 

2.3-279 

2. 3. 3. 3 

UPDT 

GP1 

2.3-42 

2.3.8. 7 

6PECT 

TAl 

2.3-73 

2.3.3. 1 

gpl 

GPl 

2.3-41 

2.3.76.3 

GPL 

SGEN 

2.3-278 

2.3.62.1 

GPLA 

APD 

2,3-245 

2.3.29,1 

GPLD 

DPD 

2.3-145 

2.3.77.2 

GPS 

PLTMRG 

2.3-281 

2.3. 5,3 

6PSETS 

PLTSET 

2.3-47 

2. 3. 9. 3 

GPST 

5HA1 

2.3-74 

2.3.69.2 

GPST 

EH A 

2.3-264 

2. 3. 7, 2 

GPTT 

GP3 

2.3-54 

2.3,76.8 

GP3S 

SGEN 

2.3-279 

2.3.76.9 

6P4S 

SGEN 

2.3-280 

2.3.63.1 

GTKA 

GI 

2.3-253 

2.3.87.3 

GTKA 

APDB 

2.3-296 

2.3.32.3 

HBAA 

SMP2 

2.3-162 

2.3.41.10 

HBDO 

GKAO 

2.3-181 

2.3.70.10 

HBDICT 

EHG 

2,3-268 

2.3.70.9 

HBELM 

EMC 

2.3-268 

2.3.17.14 

HBFF 

SCE1 

2.3-91 

2.3.69.1 

HBGG 

EMA 

2.3-264 

2.3.16.8 

HBNN 

MCE2 

2.3-87 

2.3.41.15 

HB2DD 

GKAD 

2.3-182 

2,3.40.5 

HB2PP 

MTRXIN 

2.3-177 

2.3.29.14 

HDLT 

OPO 

2.3-156 

2.3.21.2 

HDM 

RBKG3 

2.3-101 

2.3.29.17 

HEQDYN 

DPD 

2.3-156 
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Section Number 

Data Block Name 

Output from Module 

Paqe Number 

2.3.28,25 

PPHIG 

SOR2 

2.3-140 

2.3.57.1 

PPT 

TRLG 

2.3-240 

2.3.24.3 

PS 

SSG2 

2.3-104 

2.3.47.1 

PSOF 

RANO0M 

2.3*222 

2.3.29.8 

PSDL 

DPD 

2.3-152 

2.3.44.2 

PSF 

FRRD 

2.3-195 

2.3.74.4 

PSS 

RC0VR3 

2.3-274 

2.3.57.2 

PST 

TRLG 

2.3-240 

2.3.28,24 

PUBGVl 

SOR2 

2.3-139 

2.3.28,26 

PUGV 

SOR2 

2.3-141 

2.3.28. 23 

PUGV 1 

SDR2 

2.3-138 

2.3.28.27 

PUPVCl 

SDR2 

2.3-142 

2.3.87.4 

PVECT 

APDB 

2.3-296 

2.3.75.1 

PVX 

REDUCE 

2.3-276 

2.3.84.1 

PX 

CYCTl 

2.3-292 

2.3.74.2 

OAS 

RC0VR3 

2.3-274 

2.3.27.6 

QBG 

SOR1 

2.3-112 

2.3.27.3 

QG 

SORl 

2.3-111 

2.3.36,3 

QGl 

PLA2 

2.3-173 

2.3.65.1 

QHHL 

AMP 

2.3-256 

2. 3. 65. 2 

OJHL 

AMP 

2.3-256 

2.3.27.15 

QP 

SORl 

2.3-114 

2.3.27,12 

OPC 

SDRl 

2.3-113 

2.3.24.1 

QR 

SSG2 

2.3-104 

2.3.13.1 

RG 

GP4 

2.3-79 

2.3.25.6 

RU8LV 

SSG3 

2.3-108 

2.3.25.3 

RULV 

SSG3 

2.3-107 

2.3.25- 4 

RU0V 

SSG3 

2.3-107 

2.3.85.4 

KUXV 

CYCT2 

2.3-294 

2.3.76.7 

SIL 

SGEN 

2.3-279 

2. 3. 3. 6 

SIL 

GPl 

2.3-45 
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2«2.2 Index for Data Block Descriptions Sorted Alphabetically by Module 
Section Number Module Paqe Number I) Section Number I 


2.3.3S 

2.3.«g 

2.3.64 

2.3.65 

2.3.62 
2.3.1-/ 

2.3.71 
2.3.54 

2.3.39 
2.3.42 

2.3.72 

2.3.84 

2.3.85 

2.3.79 
2. 3. SO 
2.3.53 
2.3.29 
2.3.31 
2.3.33 

2.3.69 

2.3.70 

2.3.66 

2.3.67 
2.3.44 

2.3.63 
2.3.41 
2.3.49 
2.3.61 
2.3.83 

2.3.3 

2.3.4 
2.3.7 

2.3.13 

2.3.14 
2.3.11 
2.3.2 
2.3.1 
2.3.81 

2.3.15 

2.3.16 
2.3.78 

2.3.40 

2.3.68 

2.3.80 


Module 

ADD 

ALG ‘ 

AM 6 

AMP 

APD 

APDB 

ASDMAP 

BMG 

CASE 

CEAD 

C0MB2 

CYCTl 

CYCT2 

DDRMM 

D0R1 

D0R2 

DPD 

0SMG1 

DSMG2 

EHA 

EMG 

FAl 

FA2 

FRRD 

GI 

GKAD 

GKAM 

GPCYC 

GPFOR 

GP1 

GP2 

GP3 

6P4 

GPSP 

GPWG 

IFP 

IFPl 

IHPUTT2 

HCcl 

MCE2 

M0DACC 

MTRXIN 

0PTPR1 

0PTPR2 


Paqe Number 

2.3- 172 

2.3- jui 

2.3- 254 

2.3- 2Fi: 
2.;J-243 

2.3- I 03 

2.3- 269 

2.3- 239 

2.3- 176 

2.3- 183 

2.3- 271 

2.3- 292 

2.3- 293 

2.3- 285 

2.3- 226 

2.3- 237 

2.3- 145 

2.3- 161 

2.3- 163 

2.3- 264 

2.3- 265 

2.3- 258 

2.3- 260 

2.3- 195 

2.3- 253 

2.3- 179 

2.3- 225 

2.3- 244 

2.3- 290 

2.3- 41 

2.3- 46 

2.3- 51 

2.3- 79 

2.3- 83 

2.3- 77 

2.3- 5 

2.3- 1 

2.3- 288 

2.3- 84 

2.3- 85 

2.3- 284 

2.3- 177 

2.3- 262 

2.3- 287 


Section Number 

Module 

Paqe Number 

2.3.34 

PLA1 

2.3-165 

2.3.36 

PLA2 

2.3-173 

2.3.37 

PLA3 

2.3-174 

2.3.38 

PLA4 

2.3-175 

2.3.6 

PLOT 

2.3-50 

2.3.77 

PLTWR^ 

2.3-281 

2.3.5 

PL7SET 

2.3-47 

2.3.55 

PLTTRAN 

2.3-239 

2.3.82 

PVECOS 

PVECIO 

PVEC20 

2.3-289 

2.3.47 

RAN0I9M 

2.3-222 

2.3.19 

RBMG1 

2.3-96 

2.3.20 

RBMG2 

2.3-99 

2.3.21 

RBMG3 

2.3-101 

2.3,22 

R6MG4 

2.3-102 

2.3.73 

RC0VR 

2.3-272 

2.3.74 

RC0VR3 

2.3-274 

2.3.30 

READ 

2.3-157 

2.3.75 

REDUCE 

2.3-276 

2.3.56 

RMG 

2.3-240 

2.3.17 

SCEl' 

2.3-88 

2.3.60 

SDRHT 

2.3-243 

2.3.27 

SDR1 

2.7-111 

2.3.28 

SDR2 

2.3-116 

2.3.45 

SDR3 

2.3-197 

2.3.76 

SGEN 

2,3-278 

2.3.9 

SMA1 

2.3-74 

2.3.10 

SMA2 

2.3-76 

2.3.12 

SMA3 

2.3-78 

2.3.18 

SMP1 

2.3-92 

2.3.32 

SMP2 

2.3-162 

2.3,59 

SSGHT 

2.3-242 

2.3.23 

SSG1 

2.3-103 

2.3.24 

SSG2 

2.3-104 

2.3.25 

SSG3 

2.3-107 

2.3.26 

SSG4 

2.3-110 

2.3.8 

TA1 

2.3-56 

2.3.48 

TRO 

2.3-224 

2.3.58 

TRHT 

2.3-242 

2,3.57 

TRL 6 

2.3-240 

2.3.43 

VDR 

2.3-186 

2.3.46 

XYTRAN 

2.3-218 


2.2-20 (9/30/78) 


W I ti pi 




I 


I 

I 


r 

[; 

[; 

[: 

fi 

I; 

[ 

[ 


0 

li 

E 



DATA BLOCK DESCRIPTIONS POOR QUAU l"Y 


Record Word 

lilEi 

Item 

179 

180 

! 

I 1 

Aerodynamic gust load set 

181 

I 

Same as 10-12 for element strain/curvature output 

182 

I 1 

Contact surface point set 

173 

I 

LCC-1 

1 

) 

Not used 

LCC 

LCC+1 

LCC+LSEM 

I 

Length rf symmetry sequence (LSEM) 

S 1 

‘ Coefficients for symmetry sequence 

LCC+LSEM+1 

I 

Set ID ■■ >. 

LCC+LSEM+2 

LCC+LSEH4-3 

LCC+LSEM+LSET 

I 

1 

I 1 

Length of the set (LSET) | 

I Repeated for each set. 
) End of record 

Set members | terminates. 

The above record is reoeat’ 

.d for each subcase and sytnnetry combination. 


TaMe Trailer 


Word 1 = number cf records on CASECC 
Word 2 = 0 

Word 3 = maximum length of CASECC 
Word 4 =0 
Word 5=0 
Word 6=0 

2. 3. 1.2 PCDB (TABLE) 

Description 

Plot Control Data Table for the structure plotter. 

Table Format 

Mgrd Item 

0 Header record 

1 The data here is the XP.CARD translation of the Structure Plotter. 

Parked cards in the Case Control Deck (See Subroutine Description 
. for XRCARD) . There is one record for each physical card. 

N+1 End-of-file 

Table T rai ler 


Words 1 through 3 are zero 
Word 4 = 7777 

Word 5 and Word 6 are zero 
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DATA BLOCK DESCRIPTIONS 


2.3. 2.4 GE0M4 (TABLE) 


On’OtTV : . . 

OF POOR QOAUrV 


Card Types and Header Information : 


Card Type 

Header Word 1 
Card Type 

Header Word 2 
Trailer Bit Position 

Header Word 3 
Internal Card Number 

ASET 

5561 

76 

215 

ASETl 

5571 

77 

216 

BDYC 

910 

9 

175 

BOYS 

1210 

12 

177 

BDYSl 

1310 

13 

178 

C0NCT 

210 

2 

1 68 

C0NCT1 

no 

41 

1 67 

CRIGOR 

8210 

82 

297 

CRIGDl 

5310 

53 

279 

CR1GD2 

5410 

54 

284 

CRI6D3 

8310 

83 

298 

C2P 

3291 

91 

291 

CYJ0IN 

5210 

52 

257 

GTRAN 

1510 

15 

187 

L0ADC 

500 

5 

171 

MPC 

4901 

49 

17 

MPCAOD 

4891 

60 

83 

MPCAX 

4015 

40 

149 

MPCS 

1110 

11 

176 

0MIT 

5001 

50 

15 

0MIT1 

4951 

63 

92 

0MITAX 

4315 

43 

150 

P0INTAX 

4915 

49 

152 

RELES 

410 

4 

170 

RINGAX 

5615 

56 

145 

SECTAX 

6015 

60 

153 

SPC 

5501 

55 

16 

SPCl 

5481 

58 

12 

SPCADD 

5491 

59 

13 

SPCAX 

6215 

62 

148 

SPCD 

5110 

51 

256 

SPCS 

810 

8 

174 

SPCSl 

710 

7 

173 

SPCSD 

610 

6 

172 

SUPAX 

6415 

64 

151 

SUP0RT 

5601 

56 

14 

TRANS 

310 

3 

169 


Card Type Formats : 

ASET (2 words) ID C 

The note below concerning the 0MIT card applies to the ASET card as well. 

ASETl (Open Ended) C G 

G 

BDYC (Open Ended) ID NAME! 

NAME2 SIDE 

... (blank) 


G 

-1 

SIDl 

-i' 


2.3-19 (12/31/77) 


DATA BLOCK AND TABLE DESCRIPTIONS 


Card Type Formats Cont'd.: 


BOYS (Open Ended) 

SID 

61 

Cl 


G2 

C2 

-1 


B0YS1 (Open Ended) 

SID 

C 



G2 

• ' • 

-1 

C0NCT (Open Ended) 

SID 

C 

SUBA 


SU8B 

GA 

GB 


GA 

GB 

» * 1 



-1 

-1 

C0NCT1 (Open Ended) 

NSLIB 

SID 

NAMEl 


... 

^^^^NSUB 

Cl 


Gil 

... 

'"l.NSl 


C2 

G21 

> • » 


S.NSUB 

... 

-1 

CRIGDR (4 words) 

EID 

G 

G1 


Cl 



CRIGDl (Open Ended) 

EID 

IG 

G1 

and 

Gil 

G12 

G13 

CRIG02 (Open Ended) 

G14 

615 

G16 


G2 

G21 

G22 


G23 

G24 

G25 


G26 

• ■ 1 

GM 


GM1 

GM2 

GM3 


GM4 

GH5 

GM6 


-1 

N 

-1 


-1 
_ 1 

-1 

-1 

CRIGD3 (Open Ended) 

EID 

IGl 

IGll 


IG12 

IG13 

IG14 


IG15 

IG16 

IG2 


IG21 

1622 

1G23 


IG24 

IG25 

IG26 


, , . 

• • ♦ 

IGM 


IGHl 

IGM2 

IGM3 


IGM4 

IGM5 

IGM6 


M5ET 

DGl 

OGll 


DG12 

DG13 

DG14 


DG15 

DG16 

DG2 


0621 

DG22 

DG23 


DG24 

0G25 

DG26 


■ > « 

, , , 

DGN 


DGNl 

DGN2 

DGN3 


DGN4 

06N5 

DGN 6 


-1 

-K 

-1 


-1 

-1 

-1 


-1 



C3P (open ended) 

SID 

GAl 

GBl 


GA2 

GB2 

• « . 



GAn 

GBn 


-1 

-1 


CYJ0IN (Open Ended) 

SIDE 

C 

G1 


G2 


-1 

GTRAN f'’ words) 

TIO 

NAME 

GID 


TRAN 
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DATA BLOCt; AND TABLE DESCRIPTIONS 


2. 3.2.8 EDT (TABLE) 


Card Types and Header Information : 


Card Type 

Header Word 1 

Header Word 2 

Header Word 3 

Card Type 

Trailer Bit Posi t ion 

Internal Card Nu'nber 

AEFACT 

4002 

40 

273 

AER0 

3202 

32 

265 

CAER01 

3002 

30 

263 

CAER02 

4301 

43 

301 

CAER03 

4401 

44 

302 

CAER04 

4501 

45 

303 

CAER05 

5001 

50 

309 

DEF0RM 

104 

1 

81 

FLFACT 

41C2 

41 

274 

FLUTTER 

3902 

39 

272 

MKAER01 

3802 

38 

271 

HKAER02 

3702 

37 

270 

PAER01 

3102 

31 

264 

PACR02 

4601 

46 

304 

PAER03 

4701 

47 

305 

PAER04 

4801 

48 

306 

PAER05 

5101 

51 

310 

SET! 

3502 

35 

268 

SET2 

3602 

36 

269 

SPLINEI 

3302 

33 

266 

SPLINE2 

3402 

34 

267 

•SPLINE3 

4901 

49 

307 

STREAML1 

3292 

92 

292 

STREAML2 

3293 

93 

293 

VARIAN 

4202 

42 

29(' 


Card Type Formats; 


AEFACT (Open Ended) 

SID 

FI 

F2 


etc . 

-1 


AER0 (6 words) 

ACS ID 

V50UND 

BREF 


RH0REF 

SVMXZ 

SYMXX 

CAER01 (16 words) 

PIO 

CP 

NSPAN 


NCH0RD 

LSPAN 

LCH0RD 


0 

XI 

Y1 


21 

X12 

X4 


Y4 

24 

X43 

CAER02 (16 words) 

EIO 

PID 

CP 


NSB 

MINT 

LSB 


LDNT 

IGID 

XI 


Y1 

Z1 

X12 


CAER03 (16 words) 

EID 

PID 

LP 


LISTW 

USTQl 

LISTC2 


. > . 


XI 


Y1 

zi 

X12 


X4 

Y4 

Z4 


X43 
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DATA BLOCK DESCRIPTIONS 


Card Type Formats (Cont.): 


SET2 (8 words) 

SID 

EID 

SPl 


SP2 

CHI 

CH2 


Z1 

12 


SPLINEl (6 words) 

EID 

CAER0 

B0X1 


B0X2 

SETG 

OZ 

SPLINE2 (10 words) 

EiD 

CAER0 

B0X1 

BI9X2 

SETG 

DZ 


DT0R 

CID 

DTHX 


OTHY 



SPLINE3 (Open Ended) 

SID 

CAER0 

UFID 

C0MP 

G1 

Cl 


A1 

« • « 

GM 


CM 

AM 

-1 

STREAiILl (open ended) 

?LN 

G3 

G) 

G4 

G2 

«?5 

Gn 


G6 

. . . 


-1 



STREAML 2 (10 words) 

x'ln 

CHORD 

NJTN? 

RADIUS 

3TA6GER 

BSPACE 


MACH 

FLOWA 

OEN 

vLL 

VARIAN (Open Ended) 

DBLj 


etc. 


2.3-31a 02/31/77) 




DATA BLOCK DESCRIPTIONS 


2 . 3.73 Data Blocks Output from Module AL6 
2.3.73,1 CASECCA (Table) 

Description 

See description and format of CASECC table - Section 2. 3. 1.1 
2.3.7J .2 GE0M3A (Table) 

Description 

See description and format of GE0M3 table - Section 2 3.2.3. 


ifi 

n 


■4 
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DATA BLOCK OESCRIPTrONS 


2.3.*)^ Data Blocits Output f om Module APDB 
E.S.fK.l AERO (Table) 


Deserl pti on 

See description and format of AER0 table - Section 2.3.62.6. 


Z.2.fi.Z FLIST (Table) 


Desert ptlon 

See description and format of FLIST table - Section 2.3.62.11. 

2.3.<?y .3 GTKA (Matrix) 


Descr i ptlon 

See description and format of GTKA matrix - Section 2.3.63.1. 


2.3.yy.4 PVECT (Matrix) 


Description 

{ PVECT ) - Partitioning vector for cyclic modes. 


Matrix T ra i 1 er 


Number of columns - 1 

Number of rows = NEIGV (for KINOEX > 0, 2 • NEIGV) 

Form = rectagular 

Type = real-single precision 


2.3- io) (9/30/78) 




DATA BLOCK OtSCBIPTIONS 


2.3.^y.5 ACPI (Table) 


De scription 

Aerodynamic connection and property table for compressor blades. Contains ont' 
record for each compressor blade. 


Table Format 


Record Word 

0 1-2 


IlP-i 

B 


1 tem 

Data block name (ACPT) 


1 1 
2 

3 

4 

5 

6 

7 

8 
. 9 
10 
11 
12 

13 

14 
I'S 
16 

17 

18 
19 


2 


I 

I 

R 

R 

1 

I 

I 

I 

R 

R 

R 

R 

R 

R 

R 

R 

R 

i< 

« 


Key word, 6 for compressor blades 
IREF parameter 
MINMACH parar.eter 
MAXKACH parameter 

Number of blade streamlines. NLINES 
Number of stations on blade, NSTNS 
Streamline number, SLN 
Number of stations on streamll 
Stagger angle, STAGGER 
Chord length, CHORD 
Radius of streamline, RADIUS 
Blade spacing, 8SPACE 
Mach number, MACH 
Gas density, DEN 
FI ow vel oci ty . VEL 
Flow angle, FLOWA 
X- coordi n a te . basiclRfPfUT 
Y - coordi na te , basIcxM^TfOS 
Z- coordi nate . basicj Tings 

Additional records for other blade 


j. NSINSX 


RcfetiT 
NUNES 
f Tints 


J 


Table T rail ej^ 

Word 1 = 1 

Word 2-6 ' iero 


Notes 

1. Words 7-19 are repeated for each streamline. There are NLINES streamlines 
and they are from the blade root to the blade tip. These data items are 
taken from the STREAHL2 bulk data cards. 

2. Words 17-19 are repeated for each node on the streamline. There are 
NS7NS triplets (X, Y. Z). They are from the blade leading edge to the 
blade trailing e dge . 


2.3-3«y (9/30/78) 




OlCHlaftl*-,.: . -■-.•■I. ■ 

OF PCOFi QUALirV 


data block and table descriptions 






o ir^ o* 

m ^ O' 

o o 

tf\ a- 
fv* 

c o 
o* I 


o o o o 

o o o o 

lii Ul tlJ LJJ 

o o o o 

OOO 

till o o o o 
o o o o o 

9 • 0 • • 

^ O ^ ^ 


»- O •“* >- »- 

^ ^ o o ^ ^ 

P D I D D 

<] <f UJ U< tir < 

u u- o o :7 a u 

Uj U- O O 

0 0—0 » i/^ O Q 

o o n 

o n • • u# r? o 

7 ^ oj ^ 


\o 

iTi m LTi ^ 

^ ^ <o ^ 

r>j rvj cg rj 


c. 

Of i >- 
►- 

UJ I 

o 

a. I 


>r^«COrg»y^CJOfM-^ 

nj pv TV f'.' fw fv rv Oij rs/ fv 
rsjfvrv<vf\,fVTV»ryrgfVf>i 

^ a G a Q. a 

— — — — — — ac.aa. 0 . 


•x4 f\| ^ CO O ^ 


O — rv -o o> — iv 
OOOOOO — — 
ro ro ^ ^ 

rofvrvrvPVrvTVfNj 

p-i^cLcr — CD — — 




o •r 

3 r ^ 

rv 


-o r> 

CD 

rvj fM 

i\f fj 


O 

a 

z 

o ^ 

— to 


<r 


2 . 4-471 ( 12 / 29 / 78 ) 





GENERAL COMMENTS AND INDEXES 


. 2 Alphabetical index nf Module Functional Descriptions 


Section Number 

Module Name 

Section Number 

Module Name 

A. 78 

ADO 

4.32 

GPSP 

4.96 

ADOS 


GPWG 

4. Ki 

ALG 

4.21 

GP1 

•4.114 

AMG 

4.22 

GP2 

4.115 

AMP 

4.25 

GP3 

4.112 

APO 

4.31 

GP4 

4. 163 

APOB 



4.217 

ASOMAP 



Ofift 

BEGIN 

4.5 

IFPo 

4.90 

BMG 

4.3 

IFPl 

4.56 

CASE 

4.6 

1FP3’» 

4.59 

CEAD 

4,89 

IFP4’> 

4.10 

CHKPNT 

4.91 

IFP5* 

4.128 

C0MB1 

4.97 

INPUT 

4.129 

CBMB2 

4.98 

INPUTTl 

4.13 

CBNO 

4.99 

1NPUTT2 

4.148 

C0PY 

** 

INPUTT3 

4.110 

CYCT1 

«■* 

INPUTT4 

4.111 

CYCT2 

4.12 

JUMP 

Hit 

DDR 

* * 

LABEL 

4.141 

DORMM 

4.72 

HATGPR 

4.67 

DDRl 

4.71 

MATPRN 

4.68 

0DR2 

4.73 

HATPRT 

4.81 

DEC0MP 

4.33 

MCEl 

4.143 

DIAGONAL 

4.34 

MCE2 

4.47 

DPD 

4.84 

MERGE 

4.121 

DSCHK 

« 4 

H0DA 

4.49 

nSMGl 

4.126 

H0DACC 

4.51 

DSMG2 

* 

H0DB 

a A 

DUHM0D1 

ft ft 

M0DC 

s * 

OIJMH0D2 

4.79 

HPYAD 

« * 

DUMM0D3 

4.57 

MTRXiN 

* * 

DUHHBD4 

4.70 

0FP 

4.123 

4.124 

EM.I 

EMG 

4.120 

4.142 

0PTPR1 

0PTPR2 

4.18 

END 

»* 

0UTPUT 

4,17 

Ef;UlV 
r'X I 0 

4.100 

0UTPUT1 

4.130 

4.101 

0UTPUT2 

4.14 

EXIT 

4.102 

0UTPUT3 

* * 

0UTPUT4 

4.116 

FA) 

4.19 

PARAM 

4.117 

FA2 

4.118 

PARAML 

4.82 

FBS 

4.119 

PARAMR 

<1 

FILE 

4.83 

■ PARTN 

4.61 

FRRD 

ft ft 

PARTVEC 



4.52 

PLAl 

4.113 

GI 

4,53 

PLA2 

4.56 

GKAD 

4.54 

PLA3 

4.66 

GKAM 

4.55 

PLA4 

4.109 

GPCYC 

4,24 

PL0T 

4.146 

GPFOR 



* Executive System Internal Module, *” Dummy Module, 

*** Executive System Instruction (No Module Functional Descriptions) 


4.1-7 (9/30/78) 


MODULE FUNCTIONAL DESCRIPTIONS 


ORi()4l'!AL IS 

OF POOR QUALITY 


Alphabetical 

Index of Entry Point 

in Module Functional Descriptions 

Section Number 

Entry Point 

Module Name 

Pape Number 

4.46.8 

AI 

S0R2 

4.46-7 

4.114.8.67 

AKAPM 

AMG 

4,114-25b 

4.114.8.67 

AKAPPA 

AMG 

4.114-25b 

4.114.8.67 

AKP2 

AMG 

4.114-25b 

4.114.8.67 

ALAMDA 

AMG 

4,H4-?.5b 

4.59.8.25 

ALLMAT 

CEAO 

4.59-lB 

4.46.8 

AMATfiX 

SDR2 

4.46-7 

4.114.1 

AMG 

AMG 

4.114-1 

4.114.3.61 

AMGB1 

AMG 

4.114-25 

4.114.8.62 

amgbia 

AMG 

4,114-25 

4.114.8.63 

AMGBIB 

AMG 

4.114-25a 

4.114.8.64 

AMGBIC 

AMG 

4. !l4-25a 

4.114,8.65 

AMGC 1 0 

AMG 

4,114-25b 

4.114.8.71 

AMGR 1 S 

AMO 

4,U4-25d 

4,114.8.69 

AMGB2 

AMG 

4.1 14-25C 

4.1 14.8.70 

AMGB2A 

AMG 

4.114-25C 

4.114.8.72 

AMGTl 

AMG 

4,114-25e 

4,114.8.73 

AMGTl 7( 

AH6 

4.114-25e 

4.114.8.74 

AMGTl B 

AMG 

4.114-25f 

4.114.8,75 

AMGTl C 

AMG 

4.114-25f 

4.114.8.76 

AMGTl 0 

AMG 

4.114-25f 

4.114.8.77 

AMGTl S 

AMG 

4.1!4-25f 

4,114.8.7,8 

AHGTIT 

AMG 

4.n4-25rj 

4.1 14 ,.8.79 

AMGT2 

AMG 

4.114-259 

4. I 14. .3. 80 

AMGT2A 

AMG 

4,1 l4-25h 

4.115.1 

AMP 

AMP 

4.115-1 

4.115.8.1 

AMPA 

AMP 

4.115-8 

4.115.8.2 

AMPB 

AMP 

4.115-9 

4.115.3,3 

AlPBl 

,Af1P 

4.115-9 

4.115.8.4 

AMP32 

AMP 

4.115-10 

4.115.8.5 

AM PC 

AMP 

4.115.10 

4.116.8.6 

AMPC 1 

AMP 

4.1 ;5-10 

4.115.8.7 

AM PC 2 

AMP 

4.115-12 

4.115.8.8 

AMPD 

AMP 

4.115-12 

4.112.1 

APD 

APD 

4.112-1 

4.163.8 

APDB 

APDB 

4.163-1 

4.163.8.1 

APDCl 

APDB 

4.163-4 

4. 163.8.2 

APDB2 

APDB 

4.163-4 

4.163.8.3 

APDB2A 

APDB 

4.163-4 

4.112.8.2 

APDF 

APD 

4.112-3 

4.112.8.1 

APDl 

APO 

4.112-3 


(IJ-S (9/30/73) 


Moom.F functional descriptions 


Section Numbei' 

4.4S.0.25 
'1.127.1 
k/.o. I 
'1, 114. n. 67 

4.7.5.13 

4.7.5.14 
4.41.11.35 
4.41 .1 1 .21 

4.128.8.4 

4.128.8.5 
4.128.8.8 
4.128.8.10 

4.128.8.6 

4.128.8.7 


Entry Point 

ARRM 

AS DMA P 

ACP!''7 

A5YC0N 

AUT0CK 

AUT0SV 

BAR 

IIASGLG 

CDATOl 

R0.AT02 

UDAT03 

BDATO-l 

BDAT05 

BDAT06 


Module Name 

READ 

ASOMAP 

ASDMAP 

AMG 

XGPI 

XGPI 

5SG1 

SSG1 

C0MB1 

C0MB1 

C0MB1 

C0MB1 

C0MB1 

C0MB1 


Pa ge Nu mber 

4.48-18 

4.127- 1 

4.127- 6 
4. 114-25b 

4.7- 6 

4.7- 7 

4.41- 27 

4.41- 22 

4.128- 11 

4.128- 12 

4. 128- 14 
4.123-20 

4.128- 12 

4.128- 18 


4.1-8a (9/30/78) 


M-JCTIONAL DESCRIPTIONS 


Section Number 

F.nlrv Poinl 

.Module Name 

Paoe Number 

4.114,8.2 

ni AMG 

AMD 

4 114. a 

S. 1 n. >f '•'1 

IH Krtf r'' 

Aino 

V' n •! - 4 rw 

4.114.8.11 

,0 c PT2 

AMG 

4.114-9 

4.27.8.27 

DMATRX 

SMAl 

4.27-17 

4 .26.8.7 

DMEGR 

TAl 

4.26-15 

4,28.8 

DM I 

SMA2 

4.28-3 

4,28,8 

DM I NT 

SMA2 

4.28-3 

4.79.1 

IIMPYAP 

MPYAD 

4.79-1 

4.28.8 

DM 100 

SMA2 

4.28-3 

4.28.8 

DM2 11 

SHA2 

4.28-3 

4.28.8 

DM89 

SMA2 

4.28-3 

4.47. 1 

OPD 

DPD 

4.47-1 

4 47.8- 1 

DiMlAA 

DPO 

4.47-7 

4.47.9.2 

DI'DCBD 

OPO 

4.47-8 

4.47.7,1 

DPDl 

DPD 

4.47-3 

4,47.7.1 

Dr"2 

DPD 

4.47-3 

4.47.7.1 

DP03 

DPD 

4.47-3 

4,47.7.1 

DPD4 

DPD 

4.47-3 

4,47.7.1 

■“’il-irc 
1 ' 

Or’D 

4,47-3 

4,24.1 

d; 1.2' 

PI-0T 

4.24-1 

4,23. 1 

DPI TST 

PI.T5ET 

4.23-1 

4.114.8.4 

DP PS 

AMG 

4.114-4 

4.49.8.9 

f)Q[if.<ri.* 

DSMGl 

4.49-7 

4.49,8.12 

noi.An 

DSMGl 

4 49-7a 

4.49.8.14 

dcuads 

05MG i 

4 -49-7a 

4.24.8.6 

DRAW 

PL0T 

4 .24-7 

1 1 ‘y- i’ • (-0 

DRr, PPn 

AmCt 

V. tR 

4.49.8.5 

DRtiD 

DSMGl 

4.49-6 

4.121.1 

DSCHK 

DSCHK 

4.121-1 

4.49.8.7 

DSHFAR 

DSMGl 

4.49-6 

4.49,1 

DSMGl 

DSMGl 

4.49-1 

4.51.1 

DSM02 

DSMG2 

4.51-1 


4 ! -12 


GENERAL COmENTS ANO INDEXES 


Section Nuwbef 

4.«l.n.l7 

4.24.8.12 

4.41.11,20 

4.73.8.4 

4.31.8.3 

4.55.8.4 

4. 65.8.10 

4.41.11.10 

4.61.1 

4.61.8.1 

4.61.8.2 

4.61.8.3 

4.61.8.4 

4.61.8.5 

4.61.8.6 
4.46.8 
4.46.8 

4. 1U.8. 48 

4.41.11.60 

4.114.8.3 

4.24.8.4 

4.113.8.1 

4.113.8.2 

4.113.8.4 

4.113.8.3 

4.58.1 

4.58.8.1 

4.58.8.2 

4. 58.8.3 

4.58.8.4 


Entry Point 

FNDPHT 

FNDSET 

FNDSIL 

F0RMAT 

F0RM6G 

F15RH1 

F0RM2 

FPpNT 

FRRO 

FRROIA 

FRRD1B 

FRRDIC 

FRRDID 

FRRDIE 

FRRDIF 

F6211 

F89 

GAUSS 

GBTR/Ui 

GEND 

GETDEF 

61 

GIGGKS 

GIGTKA 

GIPSST 

GKAD 

GKAOIA 

GKADIB 

GKADIC 

GKADIO 


Hodule Name 

SS61 

PLOT 

SS61 

MATPRT 

GP4 

TRO 

TRD 

SSG1 

FRRO 

FRRD 

FRRO 

FRRO 

FRRD 

FRRO 

FRRD 

S0R2 

SDR2 

AMG 

SSG1 

AMG 

PLOT 

GI 

GI 

61 

GI 

GKAD 

GKAD 

GKAD 

GKAD 

GKAD 


Page Number 

4.41- 21 

4.24- 11 

4.41- 22 
4.73-4 ■ 
4.31-6 

4.65- 12 

4.65- 15 

4.41- 19 

4.61- 1 

4.61- 5 

4.61- 6 

4.61-6 

4.61- 6 

4.61- 7 

4.61- 7 
4.46-7 
4.46-7 

4.114- ^J 

4.41- 35 

4.114- 4 

4.24- 6 

4.113-8 

4.113-8 

4.113-8 

4.113-8 

4.58- 1 

4.58- 7 

4.58- 7 

4.58- 8 

4.58-8 


4.1-15 (9/30/78) 


MODULE FUNCTIONAL DESCRIPTIONS 


Section Number 

Entry Point 

Module Name 

Pane Number 

4. 5.7. 8 

IFSIP 

IFP 

4.5-6 

4. 5. 7.8 

IFS2P 

IFP 

4.5-6 

4.5.7.S 

IFS3P 

IFP 

4.5-6 

4.5. 7.8 

IFS4P 

IFP 

4.5-6 

4. 5. 7. 8 

IFS5P 

IFP 

4.5-6 

4.6.7.1 

IFXIBO 

IFP 

4.5-S 

4.5. 7.2 

IFX28D 

IFP 

4.5-5 

4. 5. 7. 3 

IFX3B0 

IFP 

4.5-5 

4.5. 7.4 

IFX4BD 

IFP 

4.5-6 

4. 5.7. 5 

IFX5BD 

IFP 

4.5-6 

4. 5.7.6 

IFX6B0 

IFP 

4.5-6 

4. 5. 7. 7 

IFX7BD 

IFP 

4.5-6 

4.41.11.54 

I HEX 

SSGl 

4.41-33 

4.27.8.42 

IHEXSD 

SMAl 

4.27-20 

4.46.8.48 

IHEXSS 

SORE 

4.46-22 

4.114.8.7 

INCR0 

AMG 

4.114-6 

4. 4. 5. 3 

INITC0 

XS0RT 

4.4-4 

4.65.8.2 

INITL 

TRD 

4.65-11 

4.97.8 

INPABD 

INPUT 

4.97-3 

4.98.1 

INPTTl 

INPUTTl 

4.98-1 

4.99.1 

INPTT2 

INPUTT2 

4.99-1 

4.97.1 

INPUT 

INPUT 

4.97-1 

i.4.5.9 

INTEXT 

XS0RT 

4.5-5 

4.65.8.7 

INTFBS 

TRD 

4.65-13 

4.73.8.1 

INTPRT 

HATPRT 

4.73-1 

4.24.8.7 

INTVEC 

PLOT 

4.24-8 

4.48.8.40 

INVERT 

READ 

4.48-19e 

4.48.8.14 

INVFBS 

READ 

4.48-12 

4.48.8.6 

INVPWR 

READ 

4.48-8 


4.1-18 (7/4/761 



GENERAL COMMENTS AND 

INDEXES 


Section Number 

Entry Point 

Module Name 

Page Number 

4.46.8.7 

STRBS1 

.S0R2 

4.46-10 , 

4. 46.8. S3 

STRIAl 

S0R2 

4.46-23 

4,46.8.55 

STRIA2 

SDR2 

4.46-23 

4.46.8.16 

STRIR1 

S0R2 

4.46-12 

4.46.8.32 

STRIR2 

S0R2 

4.46-17 

4.46.8.10 

STRMEl 

SDR2 

4.46-11 

4.46.8.6 

STRPLl 

SDR2 

4.46-10 

4.46.8.13 

STRODl 

SDR2 

4.46-12 

4.46.8.28 

STRQD2 

SDR2 

4.46-16 

4.46.8,5 

STUBEl 

S0R2 

4.46-10 

4.48.8.13 

SUB 

READ 

4.48-11 

4.114.8.47 

SUBA 

AM6 

4.114-JTb 

4. 114. 8. « 

. SU6S& 

AHG 

4.114-iJ b 

4.114.8.t7 

SUBC 

AMG 

4.114-iJ b 

4.114.8. tV 

. SUBD 

AMG 

4.114-^5 t 

4.114.8.5 

SUBP 

AMG 

4.114-5 

4.138.1 

SUBPHl 

SUBPHl 

4.138-1 

4.48.8.26 

SUMH 

READ 

4.48-18 

4.24,8.19 

SUPLT 

PL0T 

4.24-12C 

4.147.1 

SWITCH 

SWITCH 

4.147-1 

4.3.7.7 

SHSRT 

IFPl 

4.3-6 

4.103.1 

tabfht 

TABPRT 

4.103-1 

4.122.1 

TABPCH 

TABPCH 

4.122-1 

4.75.1 

TABPT 

TABPT 

4.75-1 

4.26.8.1 

TA1 

TAl 

4.26-14 

4.26.8.2 

TAIA 

TAl 

4.26-14 

4.26.8.3 

TA1B 

TAl 

4.26-15 

4.26.8.5 

TAIC 

TAl 

4.26-15 

4.26.8.6 

TAICA 

TAl 

4.26-15 

4.26.8.8 

TA1ET0 

TAl 

4.26-15 

4.26.8.4 

TAIH 

TAl 

4.26-15 

4.41.11.3 

TEMPL 

SS61 

4.41-15 

4.41.11.43 

TETRA 

SS61 

4.41-29 

4.140.1 

TIKTST 

TIMETEST 

4.140-1 


4,U31 (9/30/78) 


GENERAL COmENTS AND INDEXES 


Section Number 

Entry Point 

Module Name 

Paoe Number 

4.85.1 

TRNSP 

TRNSP 

4.BS-1 

4.41.11.58 

TRTTEM 

SSG1 

4.41-34 

4.41.11.46 

TRPLT 

SS61 

4.41-30 

4.41.11.30 

npRDR 

SSG1 

4.41-25 

4.41.11.29 

HRAPR 

SSG1 

4.41-25 

4.41,11.56 

TTRIAS 

SSG1 

4.41-33 

4.41.11.28 

HRIRG 

SSG1 

4.41-25 

4.ia.8,5 

UD61-UDG9 

AL6 

4.16L-6 

4.161.8.5 

U003AN 

ALG 

4.161-6 

4.161.8.5 

UD03AP 

AIG 

4.Ui-5 

4.161.8.5 

U003AR 

ALG 

4.16i-6 

4.U1.8.3 

UD03PB 

ALG . 

4.161-4 

4,161.8.4 

UDO3P0 

ALG 

4.161-4 

4.161.8.2 

UD03PR 

ALG 

4.161-4 

4.161.8 

U00300 

ALG 

4.U1-1 

4.161.8.5 

U00301-U00319 

ALG 

4.161-6 

4. Hi. 8. 5 

U00325 

ALG 

4.161-6 

4.161.8,5 

U00329 

ALG 

4.161-6 

4.16*'. 8 . 5 

’.00330 

ALG 

4.161-6 

4.8.1 

UMFEOT 

UMFEDIT 

4.8-1 

4.8.6 

UMF280 

DMFEDIT 

4.8-2 

4.48.8.29 

VALVEC 

READ 

4.48-19 

4.60.8.1 

VDR 

VDR 

4.60-6 

4.60.8.2 

VORA 

VDR 

4.60-6 

4.60.8.3 

VDRB 

VDR 

4.60-6 

4.60.9.2 

VORBD 

VDR 

4.60-7 

4.95.1 

VEC 

VEC 

4.95-1 

4.73.8.3 

VECPRT 

MA1PRT 

4.73-3 

< 4.48.8.39 

WIL1/EC 

READ 

4.48-19e 


4.1-33 (9/30/70) 


GENERAL COMMENTS AND INDEXES 


Section Number 

Entry Point 

Module Name 

Page Numbe' 

4.76.8.? 

URTMSG 

PRTHSG 

4.76>2 

4.24.8.17 

MRTPRT 

PL0T 

4.24-120 

4.4.5.S 

XBCDBl 

XSfilRT 

4.4-4 

4.7.6.2 

XBSBO 

XGPI 

4.7-10 

4.11.1 

XCEI 

PPPT 

4.11-1 

4.11.6.1 

XCEI 

REPT 

4.11-2 

4.12.1 

XCEI 

JUMP 

4.12-1 

4.13.1 

XCEI 

C0NO 

4.13-1 

4.14.1' 

XCEI 

EXIT 

4.14-1 

4.18.1 

XCEI 

END 

4.18-1 

4.10.1 

XCHK 

CHKPNT 

4.10-1 

4.9.S.2 

XCLEAN 

XSFA 

4.9-4 


A.I-SSa (9/30/7B) 


OF POOR QUALH i 

•’■UiLL'LE Fl:..TI.v;AL Ll'-CRI PT!i.'';S 



Lcr..:; i 

f'jianiog Initialed to 

ISTR 


Stonge Yieg for IFPlG titles 

1 

:so3 

1 

Subcase or master CASECC pointer 

1 

y.ir? 



K2PP 

'iiP? 

1' 

Key words for direct innut ratrix selection 

R’PP 

.‘••2PP 

M2PP 

0SC3 

1 

Key word for differential stiffness set 
selection 

OSC0 

REPC 

1 

Key word for rebeat subcase subcase 

REPC 

LE.NCC 

1 

Leiigtli of Case Control Record 

200 

LINE 

1 

Key word for LINE/ page count 

LINE 

0M 

1 

Word to distinguish between SUBC0M 
SUBCASE 

0Mbb 

TFL 

1 

Key word for transfer function set selection 

TFL 

DEFA 

1 

Key word for default 'pacification 

DEFA 

ELST 

1 

Key word for elemerc stress set selection 

ELST 

MAT 

1 

Key v/ord for thermal material set selection 

MATE 

0FRE 

1 

Key word for output frequency set selection 

0FRE 

IMAG 

1 

Key word for real/ imaginary printout 

IHAR 

PHAS 

1 

Key v/ord for magni tude/ohase printout 

PHAS 

REAL 

■1 

Key word for real oi" real/imagi nary nrintout 

REAL 

CMET 

1 

Key word for complex eigenvalue set selection 

CMET 

SOAM 

1 

Key word for Structural Dai'.iping Table for 
use in n’odal formulation 

SDAM 

INFR 

1 

Key v/ord for Inertia Relief Element set 
selection 

INER 

ADIS 

1 

Key v/ord for solutioti set ili splacctiicnt 
selection 

SOIS 

AVtl. 

1 

Key word for solution set velocity selection 

SVEL 

AACC 

1 

Key v/ord for solution set acceleration 
sel ec ti on 

SACC 

NCmL 

1 

Key word for non-linear load set selection 

N3M 

C0AF 

1 

Not used 


XYf’L 

1 

Key word for XYFU3T packet delimiter 

XYPL 

PLC0 

1 

Key word for Piecowisc Linear set selection 

PLC0 


4.3-10 (9/30/78) 


POOR QUALITY 


':l ••■lc.u: in". riLt r'Ror.r.Sson, fwr.r i) 


AVIS 


• m I .1 

> >4.Lr 


ncLi: 


1 !;cv word f('>’ Si’ 1 of Axis 

sy f 1 C i'oiiii.l.ii", condition 

1 Ko/ wofd for MOM- 1 inotir oiilnot 

so; ic' lection 

1 Key oord for eU'i-.Mit deletion 

set selection 


XYCS 

0IitB 

HAR.‘: 

si:;e 

C0SI 

FLUID 

SUBS 

AVEC 

F0RC 

RAND 

XY0U 

0L0A 

PLTl 

PLT2 

XTIT 

YTIT 

TCUR 

Y7T1 

YBTI 

IBEN 

EQUAL 

PRES 

TEMP 

esp 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


1 

1 

1 


Intenfiice wit'i 


GK;A file nane of .YY control data block 
BCD one 

Key word fen ‘laiTionic output control 
Key word for sine boundary condit-'ons 
Key v/ord for cosine boundary conditions 
Key ivord for fluid boundary conditions 
Key word for SUBSLQ 

Key word for solution set vector output 
Mot used 

Key word for randort sot selection 
Key word for XYPL0T packet del ini ter 
Key word for output load set selection 
GIM0 file name of BCD olot tape 
Glf!0 file narc of binary olot tape 

Key words for XY outnut titles 

Riclit shifted blank ‘000b' 

Rinht shifted eoital '000-' 

Alternate displacement key word 

Alternate displacci'ont key word 
Contact surface point set key word 
/SYSTE"' (See Section 2.4). 


If'.i j.i . it lo 
AXIS 

•;u0 

DELE 

XYCB 
Ibbb 
HARM 
SINE 
C0SI 
FLU I 
SUBS 
SVEC 

RAND 

XY0U 

0L0A 

PLTl 

PLT2 

XTIT 

YTIT 

TCUR 

YTTl 

YBTI 


PRES 

TEMP 

esp 


IFPl can set the followinn cells of SYSTEM; 

a. ‘1000 - (1I0G0 flan). If a fatal error is detected. 

b. NLPP - (Nui.ibcr of lines per pane). If a LINE card is supplied by tlic user. 

c. STFTEM - (Material Tcr'peraturc Set ID). If a TEMP(;!ATt) card is supplied. 


4 . 3-11 ( 9 / 30 / 78 ) 


ORKlf-SAL ir. 

OF POOR QUAUTir 


EXECUTIVE PREFACE MODULE IFP (INPUT FILE PROCESSOR) 


Table 1(h)'. Bulk Data Cards Processed by IFP Sorted by Internal Card Number. 


A 

B 

C 

D 

E 

F 

G 

a 

I 

J 

K 

L 

M 

N 

0 















IJHK 

291 

CTRIM6 

8 

GE0M2 

-2 

12 

16 

913 

1 

6101 

81 

SI 

6101 

-1 

4103 

292 

PTRIM6 

8 

GE0M2 

-2 

8 

12 

802 

1 

6201 

82 

SI 

o201 

-1 

4104 

293 

CTRPLTl 

8 

GE0M2 

-2 

12 

16 

913 

1 

6301 

83 

SI 

6301 

-1 

41D5 

294 

PTRPLTl 

2 

EPT 

-2 

B 

20 

1089 

1 

6401 

84 

SI 

6401 

-1 

4106 

295 

TEMPO 

9 

GE0M3 

-2 

-8 

20 

-1 

0 

8509 

85 

S4 

6501 

-1 

41E1 

296 

TEMPP4 

9 

GE0M3 

-2 

-8 

20 

-1 

0 

8609 

86 

S4 

6601 

-1 

41E2 

297 

CRIGDR 

10 

GE0M4 

-2 

4 

8 

37 

1 

8210 

82 

S3 

6000 

-1 

41E3 

298 

CRI0D3 

10 

GE0M4 

-2 

-3 

48 

-1 

1 

8301 

83 

S3 

7000 

-1 

41 E4 

299 

CTRSHL 

8 

GE0M2 

-2 

12 

16 

913 

1 

7501 

75 

SI 

7501 

-1 

41 E5 

300 

PTRSHL 

2 

EPT 

-2 

20 

24 

1005 

1 

7601 

76 

SI 

7601 

-1 

41 E6 

301 

CAER02 

4 

EOT 

0 

12 

16 

39 

1 

4301 

43 

S5 

6400 

-1 

42A1 

302 

CAER03 

4 

EOT 

0 

16 

16 

39 

1 

4401 

44 

S5 

6400 

-1 

42A2 

303 

CAER04 

4 

EOT 

0 

16 

16 

39 

1 

4501 

45 

55 

6400 

-1 

42A3 

304 

PAER02 

4 

EOT 

0 

16 

16 

1162 

1 

4601 

46 

S5 

6510 

-1 

42A4 

305 

PAER03 

4 

EOT 

0 

4 

24 

801 

1 

4701 

47 

S5 

6520 

-1 

42A5 

306 

PAER04 

4 

EOT 

0 

-4 

8 

-1 

1 

4801 

48 

S5 

6530 

-1 

42A6 

307 

SPLINE3 

4 

EOT 

0 

-4 

16 

-1 

0 

4901 

49 

S5 

6850 

-1 

4281 

308 

GUST 

5 

DIT 

0 

4 

8 

165 

0 

1005 

’0 

S5 

7600 

-1 

4282 

309 

CAER05 

4 

EOT 

0 

16 

16 

39 

1 

5001 

50 

S5 

6400 

-1 

4283 

310 

PAER05 

4 

EOT 

0 

-4 

8 

-1 

1 

sioi 

51 

S5 

7700 

-1 

42B4 

311 

DAREAS 

7 

DYNAMICS 

0 

-4 

9 

1080 

0 

9027 

90 

S5 

3300 

-1 

42B5 

312 

DELAYS 

7 

DYNAMICS 

0 

-4 


9 1080 

0 

9137 

91 

55 

3300 

-1 

42B6 

313 

OPHASES 

7 

DYNAMICS 

0 

-4 


9 1080 

0 

9277 

92 

S5 

3300 

-1 

42C1 

314 

TICS 

7 

DYNAMICS 

0 

-4 


9 1153 

0 

9307 

93 

S5 

3350 

-1 

42C2 

3/^ 

C?P 

10 

GE0M4 

0 

-4 


8 -1 

0 

3291 

91 

S3 

2910 

-1 

4103 

71b 

STREAHLI 

4 

EOT 

0 

-4 


9 -1 

1 

3292 

92 

S3 

2920 

-1 

4104 

.7/7 

STREAML2 

4 

EOT 

0 

12 

16 4S 

1 

3293 

93 

S3 

3010 

»1 

410S 
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EXECUTIVE PREFACE MODULE IFP (INPUT FILE PROCESSOR) 


OTiim'VM 

OF POO« QUALITV’ 


r'«*a 


Table 2(d). Bulk Data Cards Processed by IFP, Sorted Alphabetically by Card Name. 


4.5-17 (12/29/78) 


A 

B 

C D 

£ 

F 

G 

H 

J 

K 

L 

M 

N 

0 

1 


• 











IJHK 


65 

CHASSl 

8 GE0M2 

0 

4 

12 

337 

1001 

10 

SI 

3620 

-1 

13A5 


66 

CMASS2 

8 GE0M2 

0 

4 

12 

397 

1101 

11 

SI 

3623 

-1 

13A6 


67 

CMASS3 

8 GE0M2 

0 

4 

8 

37 

1201 

12 

SI 

3674 

-1 

13B1 


68 

cmss4 

8 GE0M2 

0 

4 

B 

409 

1301 

13 

SI 

3697 

-1 

13B2 


258 

CNGRNT 

8 GE0M2 

0 

-4 

16 

-1 

5008 

50 

SI 

5245 

-1 

33C6 


168 

C0NCT 

10 GE0M4 

0 

-4 

12 

-1 

210 

2 

S5 

2900 

-1 

23C6 


167 

C0NCT1 

10 GE0M4 

0 

-4 

20 

-1 C 

110 

41 

S5 

2800 

-1 

23Cb 


63 

C0NM1 

8 GE0M2 

0 

8 

28 

349 

1401 

14 

SI 

3580 

-1 

13A3 


64 

C0NM2 

8 GE0M2 

0 

8 

20 

377 

1501 

15 

SI 

3600 

-1 

13A4 


47 

C0NR0D 

8 GE0M2 

0 

8 

12 

277 

1601 

16 

SI 

3260 

-1 

12C5 


6 

C0RD1C 

1 GE0M1 

0 

4 

8 

37 C 

1701 

17 

SI 

600 

-1 

11A6 


5 

C0RO1R 

1 GE0M1 

0 

4 

8 

37 C 

1801 

18 

SI 

500 

-1 

11A5 


7 

C0RD1S 

1 GE0M1 

0 

4 

8 

37 C 

1901 

19 

SI 

700 

-1 

llBl 


9 

C0RD2C 

1 GE0M1 

0 

12 

16 

45 

2001 

20 

SI 

900 

-1 

1163 


8 

C0RD2R 

1 GE0M1 

0 

12 

16 

45 

2101 

21 

SI 

800 

-1 

11B2 


10 

C0RD2S 

1 6E0M1 

0 

12 

16 

45 

2201 

22 

SI 

1000 

-1 

11B4 

1 

60 

COOMEM 

8 GE0MZ 

0 

8 

12 

325 

2601 

26 

SI 

3460 

-1 

12EG 

f 

249 

CODMEMl 

8 GE0M2 

0 

8 

12 

325 G 

2008 

20 

SI 

3460 

-1 

33B3 

. 

259 

CQDMEM2 

8 GE0M2 

0 

8 

12 

325 0 

5308 

53 

SI 

3460 

-1 

33D1 


261 

C0DMEM3 

8 GE0M2 

0 

8 

12 

325 C 

5408 

54 

SI 

3460 

-1 

33D3 


59 

COOPLT 

8 GE0M2 

0 

8 

12 

325 1 

2701 

27 

SI 

3460 

-1 

12E5 , 


280 

CQUADTS* 

8 GE0M2 

0 

3 

20 

1045 

4108 

41 

S4 

2020 

-1 

4164 


57 

cquADi 

8 GE0M2 

0 

0 

12 

325 

2801 

28 

SI 

3460 

-1 

12E3 

1 

58 

CQUAD2 

8 GE0M2 

0 

8 

12 

325 

2901 

29 

SI 

3460 

-1 

12E4 


297 

CRIGDR 

10 GE0M4 

-2 

4 

8 

37 

8210 

82 

S3 

6000 

-1 

41E3 


279 

CRIGDl 

10 GE0M4 

-2 


48 

-1 

5310 

53 

S3 

2010 

-1 

4183 


284 

CRIG02 

10 GE0M4 

-2 

-4 

48 

-1 

5410 

54 

S3 

2060 

-1 

41C2 


298 

CRIGD3 

10 GE0M4 

-2 

-3 

48 

-1 

8310 

83 

S3 

7000 

-1 

41E4 


48 

CR0O 

a GE0M2 

0 

4 

8 

37 0 

3001 

30 

SI 

3281 

-1 

12C6 

j . 

61 

CSHEAR 

8 GE0M2 

0 

8 

12 

337 1 

3101 

31 

SI 

3540 

-1 

13A1 

1 - 

227 

CSL0T3 

8 GE0M2 

D 

8 

8 

877 1 

4408 

44 

SI 

4500 

0 

32C5 


228 

CSL0T4 

8 GE0M2 

0 

8 

16 

877 1 

4508 

45 

SI 

4600 

0 

32C6 

: * 

its 

C2P 

10 GE0M4 

0 

-4 

8 

-1 

0 3291 

91 

S3 

2910 

-1 

4103 

\ 

217 

CTETRA 

8 6E0M2 

0 

B 

8 

337 1 

5508 

55 

S4 

4100 

-1 

32B1 


104 

CT0RDR6 

8 GE0M2 

0 

4 

12 

750 1 

1908 

19 

S4 

1040 

-1 

21C2 


287 

CTRAPAX 

15 AXIC 

-2 

4 

8 

325 1 

7042 

74 

S3 

2040 

0 

41C5 

i 

80 

CTRAPRG 

8 GE0M2 

0 

8 

12 

737 1 

1808 

18 

S4 

800 

-1 

13D2 

i . 

i 

54 

CTRBSC 

8 GE0M2 

0 

8 

12 

313 1 

3201 

32 

SI 

3360 

-1 

12D6 


285 

CTRIAAX 

15 AXIC 

-2 

4 

8 

313 1 

7012 

70 

S3 

2111 

Q 

41C3 

] f 

52 

CTRIAI 

8 GE0M2 

0 

S 

12 

313 1 

3301 

33 

SI 

3360 

-1 

12D4 

‘ i 

53 

CTRIA2 

8 GE0M2 

0 

3 

12 

313 1 

3401 

34 

SI 

3360 

-1 

1205 

• 1 

79 

CTRIARG 

8 GE0M2 

0 

8 

12 

738 1 

1708 

17 

S4 

790 

-1 

13D1 


282 

CTRIATS* 

8 GE0M2 

0 

8 

20 

1047 1 

5908 

59 

S4 

2021 

-1 

41 B6 

■ ' 
} 

291 

CTRIM6 

8 GE0M2 

-2 

12 

16 

913 1 

6101 

81 

SI 

6101 

-1 

4103 

1 

56 

CTRMEM 

8 GE0M2 

0 

8 

12 

313 1 

3501 

35 

SI 

3360 

-1 

12E2 

1 

J 

55 

CTRPLT 

8 GE0M2 

0 

8 

12 

313 1 

3601 

36 

SI 

3360 

-1 

12E1 

1 

293 

CTRPLTl 

8 GE0M2 

-2 

12 

16 

913 1 

6301 

83 

SI 

6301 

-1 

41D3 

• 1 

' 1 

299 

CTRSHL 

8 GE0M2 

-2 

12 

16 

913 1 

7501 

75 

SI 

7501 

-1 

41E5 

1 

I 

49 

CTUBE 

8 GE0M2 

0 

4 

3 

37 0 

3701 

37 

SI 

3282 

-1 

12D1 


62 

CTWIST 

8 GE0M2 

0 

8 

12 

337 1 

3801 

38 

SI 

3540 

-1 

13A2 


50 

CVISC 

8 GE0M2 

0 

4 

8 

37 0 

3901 

39 

SI 

3283 

-1 

12D2 

1 

218 

CWEDGE 

8 GE0M2 

0 

8 

8 

525 1 

5608 

56 

S4 

4200 

-1 

32B2 

i 

257 

CVJ0IN 

10 GE0M4 

0 

-4 

16 

-1 0 

5210 

52 

SI 

5240 

-1 

33C5 

f 1 

182 

OAREA 

7 DYNAMICS 

0 

4 

8 

101 0 

27 

17 

S3 

1820 

0 

31A2 


311 

OARHAS 

7 DYNAMICS 

0 

-4 

9 

080 0 

9027 

90 

S5 

3300 

-1 

42B5 


81 

OEF0RM 

4 EOT 

0 

4 

8 

157 0 

104 

1 

SI 

2500 

-1 

13D3 

■: i 

183 

DELAY 

7 DYNAMICS 

0 

4 

8 

101 0 

37 

18 

S3 

1820 

0 

31A3 

J 

312 

DELAYS 

7 DYNAMICS 

0 

-4 

9 1 080 0 

9137 

91 

55 

3300 

-1 

42B6 

\ 

123 

DL0AD 

7 DYNAMICS 

0 

4 

8 

-1 1 

57 

5 

S3 

4060 

0 

22A3 

1 f 

119 

OMI 

12 P00L 

0 

-4 

16 

-1 0 

0 

0 

S2 

1190 

0 

21E5 

•5 ’ 

221 

OMIAX 

14 MATP00L 

0 

-4 

9 

-1 0 

214 

2 

S4 

4500 

-1 

32B5 

a i 





MODULE FUNCTIONAL OESCRIPTIONS 


Table 2(1). Bulk Data Cards Processed by IFP, Sorted Alphabetically by Card Name. 


A 

B 

C 

D 

E 

F 

6 

H 

1 

J 

K 

L 

M 

N 

0 















IJHK 

207 

R1N6FL 

15 

AXIC 

0 

4 

8 

497 

1 

8315 

83 

S4 

3300 

-1 

31E3 

131 

RL0AD1 

7 

DYNAMICS 

0 

B 

8 

337 

1 

5107 

51 

S3 

1310 

0 

22B5 

132 

RLI9AD2 

7 

DYNAMICS 

0 

8 

8 

337 

1 

5207 

52 

S3 

1310 

0 

22B6 

245 

SAME* 

10 

GE0M4 

0 

-4 

10 

-1 

0 

7810 

78 

S5 

4600 

-1 

33A5 

246 

SAMEl* 

10 

GE0M4 

0 

-8 

9 

-1 

0 

7910 

79 

S5 

5 

-1 

33A6 

153 

SECTAX 

15 

AXIC 

0 

4 

12 

177 

1 

6015 

60 

S3 

1530 

0 

23A3 

135 

SEQEP 

7 

DYNAMICS 

0 

4 

8 

37 

0 

5707 

57 

SI 

40 

-1 

22C3 

4 

SEQGP 

1 

GE0M1 

0 

4 

8 

37 

0 

5301 

53 

SI 

40 

-1 

11A4 

268 

SET1 

4 

EOT 

0 

-4 

16 

-1 

0 

3502 

35 

SI 

5300 

-1 

33E4 

269 

SET2 

4 

EOT 

0 

4 

8 

197 

0 

3602 

36 

S5 

5600 

-1 

33E5 

231 

SLBDY 

15 

AXIC 

0 

-4 

8 

-1 

0 

1415 

14 

SI 

4900 

0 

3203 

25 

SL0AD 

9 

GE0M3 

0 

4 

8 

157 

0 

5401 

54 

SI 

2500 

-1 

11E1 

16 

SPC 

10 

GE0M4 

0 

4 

8 

101 

0 

5501 

55 

SI 

1600 

-1 

11C4 

13 

SPCAOD 

10 

GE0M4 

0 

4 

8 

-1 

1 

5491 

59 

S3 

4020 

-1 

11C1 

148 

SPCAX 

15 

AXIC 

0 

4 

12 

485 

0 

6215 

62 

S3 

1480 

0 

22E4 

256 

SPCD 

10 

GE0M4 

0 

4 

8 

101 

0 

5110 

51 

SI 

1600 

-1 

33C4 

174 

SPCS 

10 

GE0M4 

0 

-4 

12 

-1 

0 

810 

8 

S5 

3500 

-1 

23D6 

172 

SPCSD 

10 

GE0M4 

0 

6 

9 

1000 

0 

610 

6 

S5 

3300 

-1 

23D4 

173 

SPCSl 

10 

GE0M4 

0 

-4 

12 

-1 

0 

710 

7 

S5 

3400 

-1 

2305 

12 

SPCl 

10 

GE0M4 

0 

-4 

9 

-1 

0 

5481 

58 

S3 

3980 

-1 

11B6 

266 

SPLINEl 

4 

EDT 

0 

8 

12 

42 

1 

3302 

33 

S5 

C700 

-1 

33E2 

267 

SPLINE2 

4 

EOT 

0 

12 

16 

1025 

1 

3402 

34 

S5 

6800 

-1 

33E3 

307 

SPLINE3 

4 

EDT 

0 

-4 

16 

-1 

0 

4901 

49 

S5 

6850 

-1 

42B1 

105 

SP0INT 

8 

GE0M2 

0 

-4 

9 

794 

0 

5551 

49 

S4 

1050 

-1 

21 C3 

175 

SSI 5*** 








4710 

47 




23E1 


STREAMLl 

4 

EDT 

0 

-4 

9 

-1 

1 

3292 

92 

S3 

2920 

-1 

4104 

3/7 

STREAML2 

.4 

EDT 

0 

12 

16 

45 

1 

3293 

93 

S3 

3010 

-1 

4105 

151 

SUPAX 

15 

AXIC 

0 

4 

0 

■’337 

0 

6415 

64 

S3 

1500 

0 

23A1 

14 

SUP0RT 

10 

GE0M4 

0 

4 

8 

37 

0 

5601 

56 

SI 

1400 

-1 

11C2 

162 

TABDMPl 

5 

DIT 

0 

-4 

16 

-1 

1 

15 

21 

52 

930 

0 

23B6 

133 

TABLE01 

5 

DIT 

0 

-4 

16 

-1 

1 

1105 

11 

52 

930 

0 

22 c 1 

134 

TABLED2 

5 

DIT 

0 

-4 

16 

-1 

1 

1205 

12 

S2 

930 

0 

22C2 

140 

TABLED3 

5 

DIT 

0 

-4 

16 

-1 

1 

1305 

13, 

52 

930 

0 

22D2 

141 

TABLED4 

5 

DIT 

0 

-4 

16 

■ -1 


1405 

14 

S2 

960 

0 

22D3 

93 

TA6LEM1 

5 

DIT 

0 

-4 

16 

-1 

1 

105 

1 

S2 

930 

0 

21A3 

94 

TABLEM2 

5 

DIT 

0 

-4 

16 

-1 

1 

205 

2 

S2 

930 

0 

21A4 

95 

TABLEM3 

5 

DIT 

0 

-4 

16 

-'1 

1 

305 

3 

S2 

930 

0 

21A5 

96 

TABLEH4 

5 

DIT 

0 

-4 

16 

-1 

1 

405 

4 

S2 

960 

0 

21 A6 

97 

TABLES! 

5 

DIT 

0 

-4 

16 

-1 

1 

3105 

31 

S2 

930 

-1 

21B1 

191 

TABRNDl 

5 

DIT 

0 

-4 

16 

-1 

1 

55 

25 

S2 

930 

0 

3165 

188 

TABRNDG 

5 

DIT 

0 

4 

8 

1 

0 

56 

26 

S2 

1000 

0 

31C2 

27 

TEMP 

9 

GE0M3 

0 

4 

8 

157 

0 

5701 

57 

SI 

2500 

-1 

11E3 

155 

TEMPAX 

15 

AXIC 

0 

4 

8 

237 

0 

6815 

6G 

S3 

1550 

0 

23A5 

98 

TEMPO 

9 

GE0M3 

0 

4 

12 

269 

0 

5641 

65 

S4 

980 

-1 

21B2 

295 

TEMPG 

9 

GE0M3 

-2 

-8 

20 

-1 

0. 

8509 

85 

S4 

6501 

,-l 

41E1 

201 

TEMPPl 

9 

GE0M3 

0 

-4 

10 

-1 

0 

8109 

81 

S4 

2100 

-1 

31 D3 

202 

TEKPP2 

9 

GE0M3 

0 

-4 

10 

-1 

0 

8209 

82 

S4 

2200 

-1 

31 D4 

203 

TEMPP3 

9 

GE0M3 

0 

-4 

10 

-1 

0 

8309 

83 

S4 

2300 

-1 

3105 

296 

TEMPP4 

9 

GE0M3 

-2 

-8 

20 

-1 

0 

8609 

86 

S4 

6601 

-1 

41 £2 

204 

temprb' 

9 

GE0M3 

0 

-4 

10 

-1 

0 

8409 

84 

S4 

2400 

-1 

3IUb 

136 

TF 

7 

DYNAMICS 

0 

8 

12 

-1 

0 

6207 

62 

SI 

1360 

0 

22C4 

137 

TIC 

7 

DYNAMICS 

0 

4 

12 

713 

0 

6207 

66 

SI 

1370 

0 

22C5 

314 

TICS 

7 

DYNAMICS 

0 

-4 

9 

1153 

0 

9307 

93 

S5 

3350 

-1 

42C2 

138 

TL0AO1 

7 

DYNAMICS 

0 

8 

8 

681 

1 

7107 

71 

S3 

1380 

0 

22C6 

139 

TL0AO2 

7 

DYNAMICS 

0 

8 

16 

689 

1 

7207 

72 

S3 

1390 

0 

22D1 

169 

TRANS 

10 

GE0M4 

0 

12 

16 

45 

1 

310 

3 

S5 

3000 

-1 

2301 

142 

TSTEP 

7 

DYNAMICS 

0 

4 

8 

-1 

1 

8307 

83 

SI 

1420 

0 

22D4 

192 

UDEF 

10 

GE0M4 

0 

-4 

16 

-1 

0 

0 

0 

S5 

4300 

0 

31 B6 

193 

USET 

10 

GE0M4 

0 

-4 

0 

1065 

0 

110 

1 

S5 

4400 

0 

31C1 

194 

USETl 

10 

GE0M4 

0 

-4 

10 

-1 

0 

210 

2 

S5 

4500 

0 

31 C2 

290 

VARIAH 

4 

EPT 

0 

-4 

16 

-1 

0 

4202 

42 

S3 

1410 

0 

41 D2 

289 

• VIEW 

2 

EPT 

0 

. 4 

8 

326 

1 

’606 

26 

SI 

5175 

0 

41D1 


4.5-20 (12/29/78) 


MODULE FUNCTIONAL DESCRIPTIONS 


The Influence coefficients are computed by MBCAP, then SKJ (Identity) Is output* and finally 
MBOPOH is called to compute and output the AJJL contribution. 

Section two is a call to STPPTZ with outputs DIJK (Identity) and D2JK (Null). 

4.114.7.4 Strip Theory Method 

Section one of the Strip Theory Method is driven by Subroutine STPDA'. STPOA reads the ACPT, 
fills in common STRIPL, and sets up pointers to common STRIPX where the various arrays will be 
stored. After all the input arrays have been set up an SKJ (Identity) matris isbuilt. 

STPDA then calls: STPBG to build a BH and GM matrix for each strip; STPPHl to build the PHI 
functions for each strip; and finally 5TPAIC to combine these matrices and build AJJL. 

Section two is a call to STPPT2 which output DIJK (Identity) and 02JK (Null). 

4.114.7.5 Piston Theory Method 

Section one of the Piston Theory method is driven by subroutine PSTAMG. P5TAMG reads the 
ACPT and sets up the core pointer to the arrays. Then SKJ (Identity) is output and PSTA is 
called to build AJJL. 

Section two is a call to STPPT2 with outputs DIJK (Identity) and D2JK (Null), 

4.114.7. (> Compressor Blade Method 

The flow for Section one of the compressor blade method is as follows. 
Subroutine AHGBl Is the driver for this method. It reads in the ACPT record for 

this method and locates reference parameters from the reference streamline on the 
blade. If there is enough core available, it calls AMGB1A to output one matrix 

of the AJJL list. When AMGBIA is through, AMGBl bumps NR0W and returns. SuWro«.Tiu<i- 
Ain&BlS IS of SKT. 

Subroutine AMGBIA outputs a portion of the AJJL matrix for each streamline 
on the compressor blade. Each streamline may be subsonic, transonic or supersonic, 
depending on the Mach number for that streamline. Subroutine AMGBIB calculates 
terras for subsonic streamlines. Subroutine AMGBIC calculates terms for supersonic 
streamlines and subroutine AMGBID calculates terms for transonic streamlines. 


4.114-6 (12/31/77) 


FUNCTIONAL MODULE AMG (AERODYNAMIC MATRIX GENERATOR) 



Each submatrix of AJJL corresponds to a blade streamline and is of order 
NSTNS X NSTNS, where NSTNS is the number of computing stations on the blade. The 
submatrices are located along the diagonal of AJJL. 


The flow for Section two of the compressor blade method is as follows. 
Subroutine AMGB2 prepares all the computations necessary. It reads the ACPT 
record and locates the reference streamline parameters. Subroutine AMGB2A is 
called to calculate matrix for each streamline. AMGB2 

outputs the NSTNS X NSTNS submatrix for each streamline to [D1JK)o 

Each submatrix of [SKJ] and [DUX] has the following form: 



[SKJ] “ W • [F‘^3^ 
and 

[OlOK] = [F-^]^ 

The [02JX] matrix is null. 



A.11A.8 Subroutines 

Besides the module driver AMG, the subroutines of Section one are divided into groups by 

method: 

/ 

For the Doublet Lattice Methods five subroutines are shared: 

SNPDF, INCR$, TKER, IDFl, and IDFZ 
The Doublet Lattice Method without Bodies also uses: 



DLAMG, GEND, DPPS, and SUBP 

The Doublet Lattice Method with Bodies also uses; 

OLAMBY, SUBl. AMGBFS, FZY2, FWHW. BFSMAT, AMGRfiD, AMGSBA, GENDSB, DPPSB, DPZY, OYPZ, 
OZPY, SUBB, SUBPB, DZY, FLLD, TV?IR, 02YMAT, and R0WD2Y 



[ 


4.11A-6a(9/BO/78) 





FUNCTIONAL MODULE AMG (AERODYNAMIC MATRIX GENERATOR) 


ALPH - Alpha array (angle of attack) 

THl - Theta array (thickness ratio) 

AJJL > G1N0 file number 

4.114.8.^/ Subroutine Name: AMG61 

1. Entry Point; AMGBl 

2. Purpose: Driver for the compressor blade method 4oi> Atxl skt 

3. Calling Sequence: CALL AMGBl (INPUT, MAT0UT»sktJ 

INPUT ■= G1N0 file number for ACPT 

MAT0UT ° 6IN0 file number for AJJL 
SKJ ° G1N0 file number for SKJ 
4.114.8.6^ Subroutine Name: AMGS1A 

1. Entry Point: AMG81A 

2. Purpose: Output all the columns of AJJL associated tvl th a record 

of ACPT. 


4.114-25 (12/31/77) 


FUNCTIONAL MODULE AMG (AERODYNAMIC MATRIX DISTRIBUTOR) 



!,? 


i' -fs 
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I 

I 

[ 


r i. 




3. Calling Sequence: CALL AMGDIA (INPUT, MAT0UT. AJJ, AJJT. T?0NX, 

TAMACH, TREFO) 

INPUT ° G1N0 file number of ACPT 

MAT0UT “ GIN0 file number of AJJL 

AJJ ° Storage for AJJL submatrlces - complex 

AJJT ° Storage for one column of AJJL 

TS0NX “ Stores position of transonic submatrix In AJJL for a particular 
transonic streamline 

TAMACH = Stores Mach numbers of transonic streamlines 
TREFD ° Stores reduced frequencies of transonic streamlines 

4.114.8.&) Subroutine Name: AMGBIB 

1. Entry Point: AMGBlfl 

Z. Purpose: Calculates AJJL terras for subsonic streamlines. 

3. Calling Sequence; CALL AMGBIB (AJJL) 

AJJL = Location to put subsonic AJJL submatrix for this streamline 
4.114.8.6Y Subroutine Name: AMGBlC 

1. Entry Point: AMGBlC 

2. Purpose: Calculates AJJL terms for supersonic streamlines. 

3. Calling Sequence: CALL AMGBlC (AJJL) 

AJJL ° Location to put supersonic AJJL submatrix for this streamline 


4.114-J(5a (9/30/78) 




FUNCTIONAL MODULE AMG (AERODYNAMIC MATRIX DISTRIBUTOR) 


A, 114.8.^5 Subroutine Name: AMG810 

1. Entry Point: AMGBID 

2. Purpose: Calculates AJJL terms for transonic streamlines. 

3. Caning Sequence: CALL AMGBIO (AJJL, T?0NX, TAMACH, TREOF) 

AJJL “ AJJL submatrices for all subsonic and supersonic streamlines. 

It also contains space for transonic submatrices. 

TB0NX ° (integer) - vector - non-zero indicates transonic streamline 
zero if known streamline 
TAMACH = Vector of streamline Mach numbers 
TREDF = Vector of streamline reduced frequencies 

4.114.8.4L Subroutine Name: INTERT 

1 . Entry Point: INTERT 

2. Purpose: To linearly interpolate by Mach number a transonic general 

Air Force matrix given two known streamline matrices. 

3. Calling Sequence: CALL INTERT (NL. NLl , NL2, NM. AJJ , TA) 

NL = Streamline number of unknown transonic 

NLl, NL2 Two known streamlines 

HM = Size of matrix in AJJ =■ 2 * NSTNS * NSTNS 

AJJ ° Contains all generalized Air Force matrices for all 

s treaml ines 

TA = Vector of streamline Mach numbers 

4.114.8.6? Subroutine Names: SUBA, SUSBBj SUBC, SUBD, ALAMOA, AKP2, AKAPPA, 

DLKAPH, ASYCON, AKAPM, ORKAPM 

1. Entry Points: Thc' s>amn o.s name 

2. Purpose: Called by AMGBlC 
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4.1I4.8.(,F Subroutine Name: GAUSS 

1. Entry Point: GAUSS 

2. Purpose: Equation Solver used by AMG61B. 

3. Calling Sequence: CALL GAUSS (A, N. NL) 

4. 114. 8. Subroutine Name: AMG82 

1 . Entry Poi nt : AMGB2 

2. Purpose: To output the compressor blade parts for matrices 

and D2JK. 

3. calling Sequence: CALL AMGB2 (INPUT. U1JK, W2JK) 

INPUT = GIN0 file number for ACTP 

WIJK = GIN0 file number for DIJK 

U2JK ° 6IN0 file number for D2JK 

4.114.B.70 Subroutine Name: AMGB2A 

1. Entry Point: AMGB2A 

2. Purpose: Calculate [F"^] matrix used in the generation of 

3. Calling Sequence: CALL AMGB2A (INPUT, FMAT , XY2B, INOEX^ 

INPUT - GIN0 file number of ACPT 
FMAT = Location for [F"^] matrix 

XYHB = Location for basic coordinates of nodes on streamline 
INDEX ° Wort; storage for INVERS 


DUK 
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4.114.8.71 Subroutine Name: AMGB2S 

1. Entry Point; AMG81S 

2 . Purpose: Calculate [F*^] matrix and W factor used in the generation of 

SKJ. 

3. Calling Sequence: CALL AMGBlS (INPUT, FMAT. XYZB, INDEX. RADII, WFACT, 

NLINE] 

INPUT = GIN0 file number of ACPI 
FMAT = Location for [F*^] matrix 

XYZB = Location for basic coordinates of nodes on streamline 
INDEX « Work storage for INVERS 
WFACT “ Factor for output 
NLINE = Number of streamlines 
RADII “ Streamline radius 
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4.114.9 Design Requirements 


For Section one, four buffers are allocated at the bottom of core. For Section two, three 
buffers are allocated at the bottom of core. Each method may have its own open core comron block 
but they must not overlap these buffers. 


4.114.9.1 Conwon Blocks 


AMGMN - 

Doublet 

Lattice without Bodies Communication 

Words 

1-7 

MCB 

- Trailer for AJJL 

8 

NR0W 

- Last row number output for any method on AJJL 

9 

NO 

- Y-syimietry flag 1 

10 

NE 

- Z-symmetry flag > 1 record of AER0 Data Block 

11 

, REFC 

- Reference card | 

12 

FMACH 

- Mach number (M) | 

13 

RFK 

/ Pairs from 2 record of AER0 Data Block 
- Reduced frequency 7 

14-20 

TSKJ 

- Trailer for SKJ 

21 

ISK 

- Row number to start building on SKJ 

22 

NSK 

- Last row number output for any method on SKJ 

AMGP2 - 

Section 

Two Conmunication 

Words 

1-7 

TWIJK 

- trailer for DIJK 

8-14 

TW2JK 

- trailer for D2JK 


DLC{)M - Doublet Lattice without Bodies Communication 
Words 

1 NP - number of panels 

2 NSTRIP- number of strips 
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STRIPX 


PSTgNC 

Words 

1-9 

PST0NX 


Strip Theory Open Core 


1 Strip Thpc.j Arrays 


1 from ACPT 


FREE 


SKJ 

4 Buffers 

AJJL 

AERg 


SCPT 


Piston Theory Conmunication 


Words Z-10 of ACPT record 


Piston Theory Open Core 


Piston Theory Arrays 
from ACPT 


FREE 


4 Buffers 


SKJ 

AJJL 

AERg 

ACPT 
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BAMGIL and BAMG2L - Ccruion Blocks for Compressor Blade Method 
Uords: 


1 

IREF 

- 

Reference streamline number 

2 

MINMAC 

- 

Parameter MINMACH 

3 

MAXMAC 

- 

Parameter HAXMACH 

4 

NLINES 

- 

Number of streamlines on blade 

5 

NSTN5 

- 

Number of stations on blade 

6 

REFSTG 

- 

Reference blade stagger angle 

7 

REFCRD 

- 

Reference blade chord 

B 

REFMAC 

- 

Reference Mach number 

9 

REFDEN 

- 

Reference density 

10 

REFVEL 

- 

Reference velocity 

11 

REFFL0 

- 

Reference flow angle 

12 

SLN 

- 

Streamline number 

13 

NSTNSX 

- 

Number of stations on streamline 

14 

STAGER 

- 

Blade stagger angle 

15 

CH0RD 

- 

Blade chord 

16 

RADIUS 

- 

Radius of streamline 

17 

BSPACE 

- 

Blade spacing 

18 

MACH 

- 

Relative flow Mach number at blade leading edge 

19 

DEN 

- 

Gas density at blade leading edge 

20 

VEL 

- 

Relative flow velocuty at blade leading edge 

21 

FL0UA 

- 

Relative flow angle at blade leading edge 

22 

AHACH 

- 

Internal Mach number 

23 

REDF 

- 

Internal reduced frequency 

24 

BLSPC 

- 

Internal blade spacing 

25 

AMACHR 

- 

Internal reference Mach number 

26 

TS0NIC 

- 

Transonic indicator 
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BAMG XX - Open Core for DUtfes 



Words 6 
to 

End of Record on 

ACPT 


Column of AJOL 





Free 


4 Buffers 

SKJ 

a3jE 

SIR® 

sm — 


BA Mg’2X - Open core for Section two 


Record of ACPT 


Free 


3 Buffers 


02JK 

oTjk 


4.114.10 Diagnostic Messages 

System fatal messages 3001, 3002, 3003, 3007, 3008 and (10) 3061. User fatal messages 2264 
and 2265. 
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4.115.8 Subroutines 


Numerous utility subroutines are used by the functional phases as shown below. 


AMPA 

AMPB 

AMPC 

AMPD 

AMPE 

AMPF 

CVCT2B 

CALCV 

CYCT2B 

CYCT2B 

CVCT2B 

CVCT2B 


SSG2B 

SSG2C 

SSG2B 

SSG2B 

SSG2B 


MERGED 

CFACTR 

f.XPREC 

SSG2A 

CFACTR 


PARTN 

CFSS0R 


SKPREC 

CFBS0R 



FILSWI 



FILSWI 



TRANP.l 

SSG2B 



SKPREC 


4.115.8.1 Subroutine Name; AMPA 

1. Entry Point: AMPA 

2. Purpose; To provide a scenario for later phases and to prepare for use of the appended 
output files. 

3. Calling Sequence: CALL AMPA (AER0, QJHL» QHHL, AJJL, QHHL0, QJHL0, INDEX, IMAX, lANY) 
AER0, QJHL, QHHL, and AJJL are the GIN0 file numbers of their respective data blocks. 


QHHLI5 and QJHL0 are the GIN0 file numbers of two scratch files to hold valid submatrices from 
QHHL and QJHL on restart. 

INDEX is the GIN0 file number of the scenario data block. Its contents are as follows; 

Record No. Word Contents 


0 

1 


1 

1 

2 

3 

4 


Header 

M column number 
K column number 
AJJL column number 

QHHL0 column number (0 Implies recompute) 


IMAX 
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4. I 17 FUNCTIONAL MODULE FAZ (FLUTTER ANALYSIS - PHASE Z) 

4.117.1 Entry Point : FAZ 

4.117.2 Purpose 

To collect data for reduction and presentation for each loop through the configuration 
parameters. ■ 

4.117.3 DMAP Calling Sequence 

FAZ PHIH.CLAMA.FSAVE / PHIHL,CLAMAL,CASEYY,0VG / V.N.TSTART / C,Y,VREF=1.0 / C,Y,PRINT=YES $ 

4.117.4 Input Data Blocks 

PHIH - Complex eigenvectors - h set, modal formulations. 

CLAMA - Complex eigenvalue output table, 

FSAVE - Flutter storage save table. 

Note : No input data block may be purged. 

4.117.5 Output Data Blocks 

PKIHL - Appended complex mode shapes - h set. 

CLAMAL - Appended complex eigenvalue output table. 

CASEYY - Appended case control data table. 

0VG - Output aeroelastic curve requests (V-g or V-f). 

Notes : 

1. No ouL;ut data block may be purged. 

2. All output data blocks are read (DMAP attribute APPEND) on subsequent calls (FLfIjJP from 
FSAVE f 1 if the method is K). 


4.117.6 Parameters 

TSTART - Integer-input/output-no default value. On input TSTART is the CPU time at the 
start of the DMAP flutter loop. On output TSTART will be *1 if there is in- 
sufficient time for another DMAP loop. 

VREF - Real-user input; no default. will be scaled by VREF: 


V 


out 


V/V,,f 


PRINT - BCD-user input-defauU = YES. If PRINT = N0. no flutter summary will be printed. 
For YES the wing flutter summary will be printed. 

For YESB the blade summary will be printed. 
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4.1^ FUNCTIONAL MODULE ALG (AERODYNAMIC LOAD GENERATOR) 

Entry Point : U00300 

4 . 1 Z Purpose 

The principal function of ALG is to generate an aerodynanii c pressure and/or 
temperature distribution for compressor blades. The ALG module may also be used 
as a compressor blade mesh generator to punch GRID, CTRIA2 and PTRIA2 bulk data 
cards. Bulk data cards STREAMLl and STREAML2 can also be generated by ALG by 
user request. 

4 . 161 . 3 OMAP Calling Sequence 

ALG CASECC, EOT, EQEXIN, {jBQy). ALGDB, C?TM, BGPDT/ CA?£CCA, GE0M3A/ 

S, Y, APRE??/ ?, Y, ATEMP/ V, Y, STREAML/ V, Y, PGE0M/ V, Y, IPRT/ 

S. N. IFAIL/ V, Y, SIGN/ V, Y, 20R1GN/ V, Y, FXC00R/ V, Y, FYC00R/ 

V, Y, F2C00R $ 

4.161.4 Input Data Blocks 

CASECC - Case control data table 
EOT - Aerodynamic bulk data cards 

EQEXIN - Equivalence between external grid or scalar numbers and internal 
numbers 

AUGV . - Displacement vector matrix giving displacements in the g-set 

U8GV ^ 

ALGOB - Compressor blade data table 

CSTH - Coordinate system transformation matrices 

BGPDT - Basic grid point definition table 

Notes : 

1. CASECC and ALGDB cannot be purged. 

2. AUGV or UBGV can be purged. 
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3. EQEXlN, CSTM and 6GPDT can be purged If AUGV Is purged. 

4. EOT can be purged If AUGV Is purged and parameter STREAML ° •!. 

5. ALGDB may be Input via DTI bulk data cards. 

4. 1^.5 Output Data Blocks 

CASECCA - Revised case control data table 

GE0M3A - Static load and temperature table 

Note : 

I. CASECCA and GE0M3A may not be purged. 

4 . Ui. . 6 Parameters 

APRESS - Input - Integer - default = -1. If APRESS > 0, then aerodynamic 
pressures will be generated. 

ATEMP - Input - integer - default = ~1. If ATEMP > 0, then aerodynamic 
temperatures will be generated. 

STREAML - Input - integer - default = -1. Controls the punching of STREAMLl 

and STREAML2 cards. STREAML = 1. punch STREAMLl cards. STREAML = 2. 
punch STREAMLZ cards. STREAML = 3, punch both STREAMLl and STREAML2 
cards. 

PGE0H - Input - integer - default = -1. Controls the punching of blade 

geometry bulk data cards. PGE0M = 1, punch GRID cards. PGE0M = 2, 
punch GRID, CTRIA2 and PTRIA2 cards. PGEOM = 3, punch GRID cards 
and the modified ALGDB table on DTI cards. 

IPRT - Input - integer - default = 0. If IPRT > 0, then intermediate 
print will be generated based on the print option in ALGDB data 
table. 
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IFAIL - Output - Integer - default = 0. Set to -1 If there Is a convergence 
failure. 

SIGN - Input - real - default = 1.0. Controls the type of analysis 
being performed. SIGN = 1.0 for standard blade analysis. 



SIGN = ■ 

-l.O 

for design 

analys i s . 


Z0R1GN 

- Input - 

real 

- default 

tt 

O 

o 

Mod i f i ca t i on 

factor 

FXC00R 

- Input - 

rea 1 

- default 

= 1.0. 

Modification 

f ac tpr 

FYC00R 

- Input - 

real 

- default 

■> 1.0. 

Modi f ica tion 

factor 

F2C00R 

- Input - 

real 

- default 

= 1.0. 

Mod i f i ca ti on 

factor 


4. Hi-. 7 Method 

(a) Data block ALGDB contains all the input needed to generate the aerodynamic 
pressures and temperatures on the compressor blade. However, the aero- 
dynamic loads are a function of the blade shape and the data defined in 
ALGDB must first be modified to account for any change in the blade shape 
or input via the displacement vector matrix AUGV. If AUCV is purged, 
then ALGDB is not modified. The ALGDB data block is read and the aero- 
dynamic loads are calculated for the compressor blade being analyzed. 

(b) The CASECC data block is read and a copy of it is output to CASECCA with 
changes to data items 4 and 7 for all subcases. In CASECCA, word 4 is 
set to 60 if aerodynamic pressure loads were generated, and word 7 is 
set to 70 if aerodynamic thermal loads were generated. 

(c) The GE0M3A data block contains aerodynamic load and temperature data. 

If parameter APRESS > 0, then PL0AO2 cards with set identification number 
60 are stored on GE0M3A. If parameter ATEHP > 0, then TEMP and TEMPO cards 
with set identification number 70 are stored on GE0M3A 
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(d^ Parameters STREAML and PGEOM control the punching of bulk data cards 

STREAMLl, STREAML2, GRID, CTRIA2, PTRIA2 and DTI. The ALG niodulo may be 
used In a one module DHAP program as a compressor blade mesh and 
geometry generator as follows: 

BEGIN $ 

ALG CASECC,, ..ALGDB, ,’/CASECCA,GE0M3A/C,N,-l/C,N.-VC,N,3/C,N,2/C.N,15 
END $ 

4 . 1 6^ . 8 Subroutines Called 

4.161.8.1 Utility subroutines GMMATS, PRETRS and TRANSS are called. ; * 

4.161.6.? Subroutine Name: UD03PR 

1. Entry Point: U003PR 

2. Purpose: Modify ALGDB data block. 

3. Calling Sequence: CALL UD03PR (lERR) 

4.161.8.3 Subroutine Name: UD03PB J 

1. Entry Point: UD03PD ! 

2. Purpose: Identify data fields as being either BCD alpha, real or integer. 

3. Calling Sequence: CALL UD03PB (IDAT, NTYPE) 

4.161.8.4 Subroutine Name: UDO3P0 

1. Entry Point: UOO3P0 

2. Purpose: Generate data blocks CASECCA and 6E0M3A. 

3. Calling Sequence: CALL UDO3P0 (SCRl) 

i 
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4. Hi. 8. 5 Subroutine Name: U003AP 


1. Entry Point: U003AP 

2 . Purpose: Punch the modified ALGDB table data block on 

DTI Bulk Data cards if parameter P6Ef)M - 3. 

3. Calling Sequence: CALL UD03AP (IFNAME, IFNH) 
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A. 162.. 8. 6 Subroutines: UD03AN. UD03AR , U00301 -UD031 9 , U0032S, U00326, U00329, 

UD0330 and UDG1-U0G9 are described in references 
ARL-72-0171, A0-756879; and ARL-75-0001. AD-A009273. 

4.162.9 Design Requirements 

1. ALG uses 4 scratch files. 

2. Overlay considerations - to maximize open core, ALG could look as follows 



4 . 1 62 . 1 0 Diagnostic Messages 

The following messages may occur; 3001, 3002, 3003 and 3008. 
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4.U3 FUNCTIONAL MODULE APDB (AERODYNAMIC POOL DISTRIBUTOR FOR BLADES) 

4.UJ.1 Entry Point : APDB 

4.] a .2 Purpose 

Bulk data cards which control the solution of aerodynamic problems are 
processed and assembled Into various blocks for convenience and efficiency In 
the solution of the aerodynamic problem. APDB also generates the transformation 
matrix (GTKA) and the partitioning vector PVECT. 

4.UJ.3 DMAP Calling Sequence 

APDB EOT. USET, BGPOT, CSTM, EQEXIN, GM, G0/ AER0, ACPT, FLIST, GTKA, 

PVECT/ V, N, NK/ V. N, NJ/ V, Y, MINMACll/ V. Y. MAXMACH/ V, Y, IREF/ 
V, Y, MTYPE/ V, N. NEIGV/ V, Y, KINDEX = -1 $ 

4. HI. 4 Input Data Blocks 

EDT - Aerodynamic bulk data cards 

USET - Displacement set definition table 

BGPOT - Basic grid point definition table 

CSTM - Coordinate system transformation matrices 

EQEXIN - Equivalence between external points and scalar index values 
GM - Multipoint constraint transformation matrix 

G0 - Structural matrix partitioning trans forma ti on matrix 

Notes : 

1. EOT, USET, BGPDT and EQEXIN cannot be purged. 

2. CSTM may be purged if all points are in the basic system. 
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3. GM and GO may be purged If there are no multipoint or no omitted 
points. 

4 . 1 63 .5 Output Data Blocks 

AER0 - Control information for control of aerodynamic matrix generation 
and flutter analysis 

ACPT - Information pertaining to each independent group of aerodynamic 
e 1 ements 

FLIST - Contains AER0, FLFACT and FLUTTER cards copied from EOT 

GTKA - Aerodynamic t rans f orma t i on matrix - K set to a set 

PVECT - Cyclic modes partitioning vector for matrix PHIA from module CYCTB 

Notes ; 


1 . 

2 . 

4. 163 .6 


NK 


AER0I ACPT, FLIST and GTKA cannot be purged. 

PVECr may be purged if there are no cyclic modes to be partitioned. 
Parameters 

- Output - integer - no default. Degrees of freedom in the NK 
displacement set. 


NJ - Output - integer - no default. Degrees of freedom in the NJ 

displacement set. 


- Input - real - default = 0.8. This is the maximum Mach number 
below which the subsonic unsteady cascade theory is valid. 


* Input - real - default = 1.01. This is the minimum Mach number 
above which the supersonic unsteady cascade theory is valid. 


4.3,63 -2 (9/30/78) 


FUNCTIONAL MODULE APOB (ACROOYNAHIC POOL OISTRIQUTQR FOR BLADES) 


IREF - Input - integer - default ° -1. This defines the streamline number 
of the reference stream surface. IREF must equal an SLN on 
a STREAML2 card. The default value, -1, represents the stream 
surface at the blade tip. If IREF does not correspond to an SLN, 
then the default will be taken. 

HYTPE * Input - BCO - default = C0SINE. This controls which components of 
the cyclic modes are to be used in the modal formulation. MTYPE = 
SINE for sine components and MTYPE = C0S1NE for cosine components. 

NEIGV - Input - BCO - no default. The number of eigenvalues found. 

Usually output by the READ module. 

KlNOEX - Input - BCD - default = -1. Harmonic index number used in cyclic 
analyses . 

4. 10^ .7 Method 


Subroutine APDB is the main control program for this module. It allocates 

buffers, reads input files, and initializes output files. APDB creates the AER0, 

ACPT and FLIST tables and generates the PVECT partitioning vector. Subroutine 

APOBl generates the GTKA transformation matrix. APDBl reduces [C^ 3 to [G^ ], 

Kg Ka 

much like module 5SG2, using the following matrix operations: 



3 



[gT 3 

KN 


[G^ 1 
'■ KN'* 
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Ka , 




[gJj » [gjT [gJj ♦ [^T ] 




'Ka^ 


At each step where a matrix multiply Is indicated, the multiply is skipped if the 
result is known to be zero (i.e., U^ or are null). 

4 . 1 (,3 . 8 Subrouti nes Cal led 


Utility routines BISLiJC. CALCV, SSG2B, TRANSS and GMMATS all called. 
4.163.8-1 Subroutine Name: AP0B1 

1. Entry Point: APOBl 

2. Purpose: To generate transformation matrix [G^ ]. 

K O 

3. Calling Sequence: CALL APDBl (IBUFl, IBJF2, NEXT, LEFT, N?TN2. NLINE?, 

LC?TM. ACJTM, N0DEX, N0DEI, I?ILC, XY2B). 

4.163.9 Design Requirements 

Open core is located at /APDBZ2/. APDB uses five scratch files. 

4 . 1 63 .10 Diagnostic Messages 

System fatal messages 3001, 3002, 3003, 3008 and 3037 may occur. The APDB 
module also generates its own messages that are not numbered. These messages are 
sel f- explana tory . 
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l.Xl. RESTART TABLES FOR STATIC AEROELASTIC ANALYSIS 


,}X. ■ \ B it Positions for Card Name Restart TaM e 


Card Name Bit Pos. 


A»2C I 

AAgF L 

CELASl L 

CELAS2 I 

CELAS3 I 

CELAS<> I 

CMASSl 1 

CHASS2 I 

CHASS3 I 

CHASSA I 

COROIC I 

conoiR I 

COROIS I 

C0R02C I 

C0R02R I 

C0R02S 1 

CROSET I 

CRiO L 

GRIDB L ' 

POINTAX 1 

RINGAX I 

RSNCFL I 

SECTAX I 

SE6GP 1 

SPCINT I 

AOUMl 2 

ADUH2 2 

AOUH3 2 

A DUMA 2 

ADUH5 2 

A0UM6 2 

ADUM7 2 

A0UH8 2 

A0UH9 2 

BAROR 2 

CBAR 2 

CCONEAX 2 

COUMl 2 

COUH2 2 

COUM3 2 

COUKA 2 

COUH5 2 

C0UM6 2 

COUMT 2 

CDUHB 2 

CDUH9 2 

CHEXAl 2 

CHEXA2 2 

CIHEXt 2 

UHEX2 2 

CIHEX3 2 

CONROO 2 

CQDMCM 2 

CQUMCMl 2 

CGOMEM2 2 

CQOMEMJ 2 


Card Name Bit Pos. 


CQDPLT 2 
C QUAD I 2 
C(^UA02 2 
CeUAOTS 2 
CROO 2 
CSHEAR 2 
CTETRA 2 
CTORORG 2 
CTRAPAX 2 
CTKAPRG 2 
CTRBSC 2 
CTRIAl . 2 
CTRIA2 2 
CTRIAAX 2 
CTRIARG 2 
CTRIATS 2 
CTRMEM 2 
CTRPLT 2 
CTUBE 2 
CTIslST 2 
CUEOGE 2 
PBAR 3 
PCON6AX 3 
POUMl 3 
P0UM2 3 
POUK3 3 
POUMA 3 
POUN5 3 
P0UP6 3 
POUH7 3 
POUMO 3 
P0UH9 3 
PIHEX 3 
PQDMEM 3 
PQOMEMl 3 
PQOMEM2 3 
PG0MEM3 3 
PQOPLT 3 
PQUAOl 3 
PQUA02 3 
PQUAOTS 3 
PROD 3 
PSMEAR. 3 
PTORORG 3 
PTRAPAX 3 
PTR8SC 3 
PTRlAl 3 
PTRIA2 3 
PTRIAAS 3 
PIRIATS 3 
PTRMEM 3 
PTRPLT 3 
PTUBE 3 
PTWIST 3 
GENEt A 
CONMl 5 
CONH2 5 


Card Name 

Bit P 

PELAS 

6 

PHASS 

7 

KAU 

8 

«AT 2 

8 

MATS 

8 

HATH 

8 

HATT 2 

8 

MATT 3 

8 

TABLEMl 

8 

TABLEM 2 

e 

TA 6 LEH 3 

8 

TABLUMA 

8 

TEMPMT$ 

8 

TEMPMXS 

a 

AXISYHS 

9 

CRIGOl 

9 

CRICD 2 

9 

MPC 

9 

MPCAOO 

9 

MPCAX 

9 

MPC 8 

9 

SPC 

10 

SPCl 

10 

SPCAOO 

10 

SPCAX 

10 

SPC 8 

10 

ASET 

11 

ASETl 

11 

OMIT 

It 

OMJTl 

11 

OHITAX 

11 

SUPAX 

12 

SUPCRT 

12 

TEMP 

13 

TEMPAX 

13 

TEMPO 

13 

TEMPPl 

13 

TEHPP 2 

13 

TEMPP 3 

13 

TEMPRB 

13 

HTHASS 

lA 

CRDPNT 

15 

PLOTEL 

16 

IRES 

17 

PLOT 8 

IB 

POUTS 

19 

LOOPS 

22 

LOOP 14 

23 

CQUPMASS 

2 A 

CPDAR 

2 A 

CPQDPI.T 

2 A 

CPQUADl 

2 A 

CrOUAD 2 

2A 

CPROU 

2A 

CPTHOSC 

2 A 

CPTRI A 1 

2a 


7.3.IU- 1 (9/30/79) 


RIGID FORMAT RESTART TABLES 


lard Name 

Bit 

CPTRIA2 

24 

CPTRPLT 

24 

CPTUBE 

24 

C5P$ 

25 

STREAML1 

26 

DTI 

26 

APRESS 

26 

ATEMP 

26 

SIGN 

26 

20RI6N 

26 

PXCOOR 

26 

FYCOOR 

26 

FZCOOR 

26 

STREAML 

27 

PGEOM 

27 

KTOUT 

28 

deform 

59 

DEFORMS 

59 

LOADS 

59 

RFORCES 

59 

SPCO 

59 

FORCE 

60 

FORCE! 

60 

F0RCE2 

60 

FORCEAX 

60 

LOAD 

60 

MOMAX 

60 

MOMENT 

60 

MOMENT] 

60 

MOMENTS 

60 

PLOAD 

60 

PLOADl 

60 

PL0AD2 

60 

PL0A03 

60 

PRESAX 

60 

SLOAD 

60 

GRAV 

61 

RFORCE 

61 

TEMPLOS 

62 


7 , 11 . >2 {^,- 30 / 78 ) 


STATIC AEROELASTIC ANALYSIS 


’J.XX, .2 Bft Positions for File Name Restart Table 


File Nanie Bit Pos. 


File Name Bit Pos. 


B6P0T 

9« 

CSTN 

9<» 

£QEX(N 

9<> 

CPOT 

94 

GPL 

94 

StL 

94 

ECT 

95 

CPTT 

96 

SLT 

96 

EST 

97 

CEI 

97 

CPECT 

97 

GPST 

98 

KCCX 

98 

MGC 

99 

KCG 

too 

RG 

101 

USET 

101 

VS 

101 

OGPsr 

lOE 

CM 

103 

KNN 

104 

KFP 

105 

KFS 

105 

RSS 

105 

CO 

106 

KAA 

1C6 

(too 

106 

LOO 

106 

LLL 

107 

PC 

108 

PL 

109 

PO 

109 

PS 

109 

RULV 

110 

RUOV 

no 

ULV 

110 

UOOV 

lie 


r; 

i; 

[ 


PCI 

ni 

GC 

m 

UCV 

111 

QEFl 

112 

OESl 

112 

OPGl 

112 

OGGI 

112 

OUCVI 

112 

PUCVl 

112 

Kooicr 

113 

KOELH 

113 

KOCC 

113 

KOMN 

m 

KOPF 

115 

KOFS 

115 

KOSS 

115 

KOAA 

116 

K8LL 

117 

KGFS 

117 

K8SS 

117 

PBL 

117 

PBS 

117 

VBS 

117 

LBLL 

lie 

UBLV 

U9 

RUBLV 

119 

OBG 

120 

U6GV 

120 

OEFBl 

121 

OESei 

121 

OQBGl 

121 

0U8CV1 

121 

puaevr. 

121 

ELSETS 

122 

GPSETS 

122 

PLTPAR 

122 

PLTSETX 

122 

Koicr 

123 

KELN 

123 

MOICT 

123 

MEL« 

123 

CASECCAl 

124 

GE0M3AI 

124 

SLTA] 

125 

6PTTA1 

125 

PGAl 

126 

CASECCA 

127 

GE0M3A 

127 

SLTA 

128 

6PTTA 

128 

PGA 

129 

POE 

130 

Gt•0^^3b 

13 1 

PGNA 

132 

AUGV 

133 

P612 

134 


I 






7.A2- -3 (9/30/78) 


RIGID FORMAT RESTART TABLES 


.3 Card name Restart Table 


OMP Bit Position 

Inst. 1 10 20 30 



1234967890 

123456789 

234 

GPl 

1 




SAVE 

1 




COND 

1 




CMKPNT 

1 




SSS 


6 



GP2 

12 

45 

6 


chkpmt 

12 

45 

6 


sss 


6 



PARAML 



6 


6SS 


7 



PARA^P 




6 

PURGE 



8 


SSS 


7 



CONO 



8 


SSS 


7 



pltsft 



8 


SSS 


7 



SAVE 



8 


SSS 


7 



PRTMSG 



8 


SSS 


7 



PARAM 



S 


SSS 


7 



PAR AM 



8 


SSS 


7 



CONO 



8 


SSS 


7 



PLOT 



8 


SSS 


7 



SAVE 



8 


SSS 


7 



PRTMSG 



8 


SSS 


7 



LABEL 



3 


SSS 


7 



CHKPNT 



a 


sss 


67 



GP3 

12 


3 


SAVE 

12 


3 


PARAM 

12 


3 5 


CHKPNT 

12 


3 


SSS 


6 



TAl 

1234567 

3 


SAVE 

1234567 

3 


CONO 

12345678 

3 


PURGE 

1234567 

3 


CHKPNT 

1234567 

3 

p 

sss 


6 



PAR AI4 

1234 6 



EMG 

12345678 




40 


7.1'i- -4 (9/30/78) 


STATIC AEROELASTIC ANALYSIS 


DMP B< t Pos 1 ft on 

Inst. J 10 20 Jo 40 


SAVE 

123A5678 




CWPNT 

123A5678 




SSS 

6 




COMO 

U3A t> 8 




EHA 

I23A 6 8 




CHKPNT 

123 A 6 a 




*ss 

6 




LdSEL 

I23A5 78 

4 

4 


CDi^O 

123AS 78 

4 

4 


EMA 

123A5 78 

4 

4 


CWPNT 

123A5 78 

4 

4 


&SS 

6 




label 

12345 78 

4 

4 


COND 

123 5 78 

45 

4 


SSS 

8 




CONO 

123 5 78 

45 

4 


SSS 

8 




GPWG 

123 5 78 

45 

4 


SSS 

8 




OFP 

123 5 78 

4L 

4 


SSS 

8 




LABEL 

123 S 78 

45 

4 


SSS 

6 




EOUl V 

1234 6 a 




CHKPNT" 

1234 6 8 




SSS 

6 




COMO 

1234 6 8 




S^IAS 

1234 6 3 




CHKP^T 

1234 6 8 




SSS 

6 




LABEL 

1234 6 8 




PAB A»4 

1 90 

1 



CPA 

1 90 

1 



SAVE 

1 90 

1 



CO» 0 

1 90 

1 



PURGE 

1 90 

1 



CHKPNT 

1234 6 890 

1 



SSS 

6 




COND 

1 

2 



JU'»P 

1 

2 



LABEL 

1 

2 



COVO 

123 6 890 




GPSP 

123 6 890 




SAVE 

123 b 890 




COND 

123 6 890 




OFP 

123 6 890 




LABEL 

123 6 890 




EOUIV 

1234 6 89 




CHKPNT 

1234 6 89 




SSS 

6 




CONO 

1234 6 89 





7,.iX -5 {9/30/78) 




RIGID FORMAT RESTART TABLES 


DMP 

Inst. 1 10 


I4CE1 

I 

9 



CHKPMT 

1 

9 



SSS 


6 



MCE2 

1239 6 69 



CHitPNT 

1239 6 89 



SSS 


6 



LABEL 

1239 6 89 



Eourv 

1239 b 89( 



CHKPNT 

1239 6 89C 



SSS 


6 



C090 

1239 6 89C 



SCSI 

1239 6 89C 



CHKPNT 

1239 6 89C 



SSS 


6 



LABEL 

1239 b 89C 



Eourv 

1239 6 890 

1 


CHKPNT 

1239 6 890 

1 


SSS 


6 



cnNO 

1239 6 89C 

1 


SHPl 

1239 6 89Q 

1 


CHKPNT 

1239 6 890 

1 


SSS 


9 



LABEL 

1239 6 89C 

1 


PB«G2 

1239 6 09C 

1 


CHKPNT 

1239 6 890 

1 


SSS 


6 



SSGl 

123 

5678 


3 

CHKPNT 

123 

5678 


3 

SSS 


6 



PARAH 

123 

5678 


3 

CONO 

123 

5678 


3 

ALG 

123 

5678 


3 

CONO 

123 

5678 


3 

PARAN 

123 

5678 


3 

COND 

123 

5678 

1 

3 

GP3 

123 

5678 


3 

CHKPNT 

123 

5678 


3 

SSS 


6 



SSGl 

123 

56 78 


3 

CHKPNT 

123 

5678 


3 

SSS 


6 



ADO 

123 

5678 


3 

LABEL 

123 

5678 


3 

EOUIV 

123 

5678 


3 

CHKPNT 

123 

5678 


3 

SSS 


6 



ECU IV 

123 

567890 

1 

3 

CHKPNT 

123 

567890 

1 

3 

SSS 


6 



COND 

123 

56 7890 

1 

3 

SSG2 

123 

567890 

1 

3 


Bit Position 
20 30 40 


6 

6 

67 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 


50 60 


9012 

9012 


90 

90 

90 

90 

90 

90 

90 

90 


12 

12 

12 

12 

12 

12 

U 

12 


9012 

9012 


90 

90 

90 

90 


12 

12 

12 

12 


90a2 

9oM 


9012 

90ll2 


7.2‘U -6 (9/30/78) 


STATIC AEROELASTIC ANALTSIS 


DMAP 

Inst. 


10 


Bit Position 
20 40 


50 60 


CHKPMT 

sss 

LABEL 

SSG3 

SAVE 

C WpiVT 

ftSS 

COND 

MATGPP 

MATGPR 

LABEL 

SOP 1 

C HK PN T 

«ss 

SDR 2 
PAR AM 
□ FP 
SAVE 
COMO 

ess 

PLOT 

sss 

SAVE 

SSS 

prtmsg 

SSS 
LABEL 
SSS 
TAl 
OSMGl 
CHKPNT 
SSS 
CDMD 
• EOUIV 
LABEL 
PAR AM 
PAR AM 
PARAMR 
PAR AML 
JUMP 
LABEL 
FOUIV 
Chkpnt 

sss 

PAR AM 

EOUIV 

CHKPN T 

SSS 

COND 

MCE2 

CHtPNT 


123 5678901 
6 

123 56789011 
1234567890 
12345678901 
123456789c(l 
6 

123456789CI1 
1234567890 
12345678901 
12345678901 
12345678901 
I23456789cjl 
6 


1 3 


3 

3 

3 

3 

3 

3 

3 

3 

3 

3 


7 

7 

7 

7 


9 

9 

9 

9 

8 


7 


8 


7 

7 


7 

12345678901 

12345678901 

12345673901 

6 

123 5678 
123 5678 
123 5678 
123456789CI 
12345678901 
12345678901 
123‘^56789Q1 
1234567890jl 
123456789011 
123456789qIi 
123956789cjl 
6 

12345678901 

12395678901 

12345678901 

6 

123456789CI 
123456789C 1 
I234567890(l 


3 

3 

3 


8 

8 

6 



6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 


9012 


90 

90 


12 
12 
9012 


90' 


9012 

9012 

9012 


90 

90 


9qi2 


12 


12 

12 


90 


9d 


90 
90 
90 
90 
90 
90 
9012 


9CH 


9dl2 


9d 


9Crfl2 


9012 
90 12 


12 


12 


9012 
901 
901 


12 

12 

12 

12 

12 

12 


12 

12 


9^12 

9CM12 


12 


12 


7.ii-7 (9/30/78) 


RIGID FORMAT RESTART TABLES 


OMAP 

Inst. 1 10 


ftSS 

LABEL 

EOUIV 

Chkpnt 

flSS 

COND 

scei 

CHKPNT 

tss 

LABEL 

Eourv 

CHItP^T 

sss 

CONO 

SMP2 

CHKPNT 

iSS 

LABEL 

AOO 

AOO 

AOO 

CONO 

MPYAO 

MPYAO 

UM EB GE 

EOUIV 

CONO 

UMEftCE 

label 

ADD 

EOUIV 

LABEL 

ADO 

COPY 

RBMG2 

SAVE 

CHKPNT 

SSS 


6 

1234S6789CI 

12345676901 

123456789Ct 

6 

123456789C1 

123456789<’^i 

1234S6789CI 

6 

123456789011 

1234567890L 

123456789CI 

6 

1234S6789C 1 
12345678901 
1234S6789CL 
6 

123456789C1 
123456789CI 
123456789CI 
123456789C 1 
123456789C1 
123456789C1 
123456789CI 
123456789C 1 
123456789C 1 
123456789C1 
1234567S9C1 
L234S6789C 1 
123456789CI 
1234567890 I 
123456769CI 
U3456789CI 
123456789CI 
12345678901 
123456789CI 
123456789C1 


PRTPAPM 12345678901 
PRTPAPM 12345678901 
JUMP 12345678901 
LABEL 12345678901 
PAOAM 12345678931 
COND I23456789dl 
ALG 12345678s:il 
CONO I234567890il 
PAHAM 123456789dl 
PARAM 12345678931 
CONO i23456789Cjl 
GP3 12345678901 
S$C1 123456789(11 


Bit Position 
20 30 40 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 67 

23 6 

23 6 

23 6 

23 6 

23 6 


SO 60 


90 

90 


12 
12 
90112 


90112 
12 


90 

90 

90 

9q 

90 

9q 


9012 

9012 


U 

12 

12 

12 

12 


90^ 


9012 

9012 

9012 


90 

90 

90 

90 

90 

90 

90 


90 

90 

90 

90 

90 

90 

90 

90 

90 

90 

90 


12 


12 

12 

12 

12 

12 

12 

12 


9qi2 


12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 


90 

90 

90 

90 

90 

90 

90 

90 

90 

90 


12 

12 

12 

12 

12 

12 

12 

12 

12 

12 


7 , 1 ' 3 - -8 ( 9 / 30 / 78 ) 


STATIC AEROELASTIC ANALYSIS 


OMAP 

Inst. 


10 


Bit Position 
20 30 40 


SO 


60 


ADD 

L&BFL 

FOUIV 

CHKPNT 

8SS 

SSG2 

SSG3 

SflVF 

CHKPST 

8SS 

COND 

M 4 TCPR 

LABFl 

SDR I 

CHXPNT 

8SS 

CONO 

EQUIV 

LABEL 

ADO 

OSMGi 

CHKPNT 

sss 

MPVAO 

ADO 

Dscm 

SAVE 
COSO 
COND 
EQUIV 
ECU IV 

eouiv 

BEPT 

TAflPT 

LABEL 

ADD 

CHKPNT 

sss 

EOUIV 

CHKPNT 

ESS 

EOU IV 

PEPT 

TABPT 

LABEL 

PARAW 

COND 

ADD 

OUTPUTl 

OUTPUTl 

LABEL 


123^5678901 
123656789CI 
123A56789C 1 
123456789C1 
6 

1235S6789Ct 
123A56789CI 
123656789CI 
123956789C I 
6 

L236S6789CI 

123956789CI 

L23556789C1 


l239567U9dl 
l23A56789qi 
6 

123^56789dl 
1234S6789C1 
123456789C I 
123«56789CI 
123A56789C 
l23A56789qi 
6 

123A56789C 
:23656789Cl 
123A56789C I 
123A56789C 
123456789C 
123A56789Q 
123A56789C 
123456789C 
123'V56789C1 
123A56789CI 
I23'*56789cil 


12395678901 

123956739(31 

123956789(31 


6 

12395678901 

123956789C1 

6 

12395678901 

123956789CI 

12395678901 

12395678901 

123956789CI 

12395678901 

12395678901 

12395678901 

l23956V890il 

123956789di 


23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

7 23 6 

7 23 6 

7 03 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 

23 6 8 

23 6 8 

23 6 8 

23 6 8 

23 6 8 

23 6 8 


9dl2 

9012 


9q 


9dl3 


9d 


90 12 
9C 12 
9C 

90 
9Q 12 
12 


9C 

9C 

9C 


9d 


9d 


9C 

9C 


9d 


9d 


12 


12 


12 

12 


12 

12 


9dl2 


12 


9dl2 


12 


9C 12 
9C 12 


12 
12 
9C 12 
9C 12 


12 


9qi2 


12 


9C 12 
9012 


9C 

9C 

9C 

90 

90 

9C 

9C 


12 

12 

12 

12 

12 

12 

12 


9C 

90 

90 

9C 

9C 

90 

90 

9C 

9C 

9q 


12 

12 

12 

12 

12 

12 

12 

12 

12 

12 


7J.L-9 (9/30/78) 


RIGID FORMAT RESTART TABLES 


OHAP Bit Position 

Inst. 1 10 20 ^ 


CHKPMT 

sss 

QLC 

S0R2 

OFP 

SAVE 

SDR 1 

GPFDR 

OFP 

COMO 

SSS 

PLOT 

8SS 

SAVE 

8SS 

PRTMSG 

sss 

LABEL 

8SS 

JUMP 

LABEL 

PRTPAPM 

LABEL 

PRTPAP'* 

LABEL 

PRTPARM 

sss 

LABEL 

SSS 

PRTPARH 

LABEL 

END 


I23<>36789qi 


123956789C 
123<>56789CI 
1234567B9C I 


123A567893123956789 


1234567890 


123456789C 123456789 
123456789C123456789 
123456789C 123456789 


1234567890 


I23456789qi23456789 
8 

123456789^123456789 
3 


123456789( 

123456789( 


89 

9 

9 


123456789 


123456789 


123456789 

123456789 


I23456789dl2.'456789 


23 


23 

23 

23 


234 

234 

234 

234 

234 

234 

234 

234 

234 

234 

234 


67 


6 

6 

6 


40 


SO 60 


90 


90 

90 


12 


12 

12 


9di2 


90 

90 

90 

90 


12 

12 

12 

12 


9C 12 
9012 
90 12 

90 12 


It 

9 


12 

12 

12 


7-iJ. -10 (9/30/78) 


STATIC AEROELASTIC ANALYSIS 


7*i^ -A Rigid Format Change Restart Table 

OMAP Bit Position 

Inst. 63 7F 80 

06G!N 3<)S 7a90ia3<>567 3<iS 

GPl 

save 

COMO 

CHKPNT 

GP2 

CHKPM T 

PAftaML 

PAR AMR 

PURGE 

COMO 

PLTSET 

SAVE 

PRTMSG 

PAR AM 

PAR AM 

COMO 

PLOT 

SAVE 

PR TMSfi 

LA&EL 

CHKPMT 

CP 3 

SAVE 

PARAM 3A5 7e<50123A567 3<>5 

CHKPMT 

TAl 

SAVE 

COMO 3A5 7890123-^567 S-jS 

PURGF 

ChkPNT 

PARAM 

EMC 

SAVE 

CHKPNT 

CO NO 

EMA 

CHKPNT 

LABEL 

CONO 

EMA 

CHKPNT 

LABEL 

CONO 

CDND 

GPWG 

OFP 

LABEL 

EOUJ V 

CHKPNT 

CONO 


7.Ai, -n (9/30/70) 


RIGID FORMAT RESTART TABLES 


DMAP Bit PosUfon 

Inst. 63 W 80 

SMA3 

CKKPNT 

LABEL 

PARAM 

CPA 

SAVE 


CONO 

34'- 

901234567 

PURGE 



CHKPNT 



CONO 

3*5 

901234567 

JUMP 

345 

901234567 

LABEL 

345 

901234567 


CDMD 

GPSP 

SAVE 

CONO 

OPP 

LABEL 

EOUIV 

CHKPNT 

COMO 

MCE I 

CHKPNT 

‘fCEZ 

CHKPNT 

LABEL 

ECO IV 

CHKPMT 

CONO 

SCEt 

CHKPNT 

LABEL 

EOUIV 

CHKPNT 

CONO 

SMP I 

CHKPNT 

LABEL 

RBNG2 

CHKPNT 

SSGl 

CHKPNT 

PARAM 

CONO 

ALG 

CONO 

PAR AM 

CONO 

GP3 

CHKPNT 

SSCI 


345 


345 

345 

345 


7.A1 -12 (9/30/78) 


STATIC AEfiOELASTiC ANALYSIS 


OMAP Bit Position 

Inst. 63 IZ 80 

Cl«l>NT 
tfOO 
UitiLL 
EOUtV 
CHKPNT 
EOUtV 
CHXPNT 
COMO 
SSG2 
CHKPNT 
LABEL 


SSG3 

A 



SAVE 

A 



CHKPNT 

A 



CONO 

A5 

B'J0123A567 

3A5 

matgpr 

A5 

890123A567 

3A5 

MATGPR 

AS 

890123AS67 

3AS 

LABEL 

AS 

890123A567 

3A5 


SOfl I 

CHKPNT 

SOP 2 

PARAN 

OPP 

SAVE 

COMO 

PLOT 

SAVE 

PRTMSG 

LABEL 

TAl 

OSMOl 

CHKPNT 

CONO 

EQUIV 

LABEL 

PAP A« 

PARAM 

PAR A*<R 

PARAML 

JUMP 

LABEL 

FOUIV 

CHKPN T 

PAR AM 

eoutv 

CHKPNT 

CONO 

MCE2 

CHKPNT 

LABEL 

EOUtV 


T-Zi -1 


3 (9/30/78) 


RIGID FORMAT RESTART TABLES 


OMAP Bit PosUton 

Inst. 63 70 80 

cmkpnt 

CONR 
SCSI 
CHXPST 
LABPL 
fou tv 

CHKPMT 

COMO 

SWP2 

CHKP^tT 

LABEL 

AOn 

AOO 

AOO 

CONO 

MPVAO 

MPYAO 

UMFRGE 

EOUIV 

CONO 

UHERRE 

LABEL 

AOO 

EOUIV 

LABEL 

AOO 

COPY 

RBMG 2 

SAVE 

CHXPNT 

PRTPARH 

PRTPARM 

JUMP 

label 

PAR AM 

COND 

ALG 

CONO 

PAR AM 

PAR AH 

COND 

GP3 

SSGl 

AOO 

LABEL 

EOUIV 

C HK PN T 

SSG2 

SSG3 

SAVE' 

CHKPNT 


-lA (9/30/78) 




'•v» Ttrr^a~ • 


STATIC AEROELASTIC ANALYSIS 


I 


J 


"r** 

A 


\ 



> 


t • 

r- 


I 


r 

1 . 





I 


j. 


i 


i 


OMAP Bft PoslUon 

Inst, 63 80 

C3N0 

MATGPR 

LA8EI 

SDR I 3A5 7B90123A567 343 

CHKPNT 343 78901234567 345 

CONO 

eouiv 

LABEL 

ADD 

OS'<r.l 

CMtPNT 

MPYAD 

ADO 

OSCHK 

SAVE 

CONO 

COND 

60UIV 

eouiv 

EOU [V 

BEPT 

TABPT 

LABEL 

ADO 

CHKPNT 

Eourv 

CHLPNT 

EOUIV 

REPT 

TABPT 

LABEL 

PARAM 

CONO 

ADD 

OUTPUTl 

OUTPUT I 

LABEL 

CHKPNT 

ALG 

SOB 2 

OFP 

SAVE 

SOB I 

GPFOR 

OFP 

COND 

PLOT 

SAVE 

PRT“SG 

LABEL 

JU'*P 345 78901234567 345 
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RIGID FORMAT RESTART TABLES 



^ fa 

f 

OMAP 

BU Position 


T 

Int. 

63 

^70 

80 

‘ f 

LABEL 

3^5 

70901234567 

345 


PRTP4RM 

345 

78901234567 

345 


LABEL 

345 

78901234567 

345 

- r 

■5 

PRTPAPM 

345 

78901234567 

345 

LABEL 

345 

78901234567 

345 

7 3 

PRTPARM 

345 

78901234567 

345 


label 

345 

78901234567 

345 



PBTPAR<4 

345 

78901234567 

345 


LABEL 

345 

78901234567 

345 

'• J 

END 

345 

78901234567 

345 





STATIC AEftOELASTIC ANALYSIS 


•10,21,5 File Name Restart Table 


DMAP 

Inst. 94 100 


BEGIN 

GPl 

SAVE 

CHNO 

CHXPNT 

CP 2 

CHKPNT 

PARANL 

PAR AMR 

PURGE 

CONO 

PL T SET 

SAVE 

PPTNSC 

PARAN 

PARA'S 

CONO 

PLOT 

SAVE 

PRTMSG 

LABEL 

CHXPNT 

GP3 

SAVE 

PARAM 

CHKPNT 

TAl 

SAVE 

CONO 

PURGE 

CHKPN T 

PARAM 

EMC 

SAVE 

CHKPNT 

CONO 

EHA 

CHKPNT 

LABEL 

CONO 

EMA 

CHKPNT 

LABEL 

CONO 

CONO 

GPHG 

OFP 

LABEL 

EOUIV 

CHKPN T 

CONO 


4 

4 

4 

4 

5 

5 



a 

a 

a 

a 

9 

9 

9 

9 


0 

0 

0 


Bit Position 
ITS no 130 


2 

2 

2 

2 

2 

2 

2 

2 


2 


3 

3 

3 


140 


150 


7.2.J. - 1 7 ( 9/30/78) 


RIGID FORMAT RESTART TABLES 


[ 

[ 


r- 


r 


OMAR Bit Posi tion 

Inst. 94 100 ITO TTO 130 


S«A3 

CWPNT 

LABEL 

RABAM 

CPA 

SAVE 

CONO 

PURT.E 

CHKPNT 

co»<n 

JUMP 

t ABF.L 

COVD 

GPSP 

SAVE 

CPNO 

OFP 

LABEL 

EOU (V 

Chkpnt 

COND 

MC61 

CHKPNT 

HCE2 

CHKPNT 

LABEL 

EOUIV 

CHKPN T 

CONO 

SCEl 

CHKPNT 

LABEL 

EOU IV 

CHKPNT 

CONO 

SMP 1 

CHKPNT 

LABEL 

PftHC2 

CHKPNT 

SSGl 

CHKPNT 

PAP A« 

CONO 

ALG 

CONO 

PARAK 

CONO 

GP3 

C HK PN T 
SSOl 


0 

0 

0 

1 

1 

I 

1 

1 3 56 901 57 

1 3 56 901 5 7 


2 

2 

2 

2 

2 

2 

A 

A 

3A 

3 

3 

A 

A 

3A 

5 

5 

5 

5 

5 

5 

6 

6 

6 

6 

6 

6 

7 

7 

2 

2 

A 

A 

A 


6 


I 

I 
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«ji \fi vn VO 


STATIC AEROELASTIC ANALYSIS 


1 


i: 


DMA? 

Inst. 94 100 

CHKPNT 

AOO 

laSFL 

EOUIV 

CHKPNT 

EOUJV 

CHKPN T 

CDNn 

SSG2 

CHKPNT 

LAOEL 

SSG3 

SAVE 

CHKPNT 

CONO 

mATQPP 

HATCPfi 

LABEL 

SD3 1 

C HK PN T 

SnR2 

PARAH 

OFP 

SAVE 

CD'IO 

PLOT 

SAVE 

PB THSG 

LABEL 

TAl 

OS“Gl 

CHKPNT 
CONO 
ECU IV 
LABEL 
PAR A« 

PAR am 
PAP AMP 
PAR AML 
JU'*P 
LABEL 
EOUI V 
CHKPNT 
PAR AM 
FOUIV 
CHKPN T 
CONO 
MCF2 
CHKPNT 

LABEL 
EOUI V 


81t Position 

ITS 


a 

8 

s 

a 

9 

9 

9 

9 

9 

9 

0 

0 

0 


1 

1 

2 


3 

3 

3 


A 

A 

4 

4 

4 

4 

4 

4 

4 

5 


130 140 

6 


150 
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m 


J 

r 


1 


i: 





i 

i 


r 

I' 

• •» 

i; 

[ 

i 

a M 

L 


CHKPMT 

CONO 

SCEl 

CHltPNT 

LABEL 

EOUtV 

CHUPNT 

CO'JD 

SMP2 

CHUPMT 

LABEL 

ADO 

ADO 

ADO 

CONO 

>4PYAO 

MPYAD 

UN ERSE 

EQUIV 

CONO 

UMEBGE 

label 

AOO 

EOUtV 

label 

AOO 

COPY 

R0NG2 

SAVE 

CHKPNT 

PRTPApM 

PSTPARM 

JUMP 

LABEL 

PARAM 

CONO 

ALG 

COND 

PAR AM 

PARAM 

COND 

CP3 

SSGl 

AOO 

LABEL 

EOUIV 

Chk pn t 

5SG2 

SSG3 

SAVE 

CMKPNT 


3 

S 

5 

5 

3 


7 

7 

7 


8 

8 

a 

8 

8 


7 

7 


890 

8 

9 

3 


0 


9 
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STATIC AEROELASTIC ANALYSIS 


OMAP Bit Pos1 tion 

Inst. 94 100 1T0 1^0 130 140 ISO 

COND 

MATCPft 

LABEL 0 

SOR 1 0 

CHKPNT 

COMO 

EOUI V 

LABEL 

ADO 

OSMCl 

CHKPNT 

MPVAO 

ADO 

DSCHK 

SAVE 

COND 

CONO 

EOUIV 

E3U [V 

EOUIV 

BEPT 

TABPT 

LABEL 

ADO 

CHKPNT 

EOUIV 

CHKPNT 

EOUIV 

BEPT 

TABPT 

LABEL 

PARAH 

COND 

AOO 

OUTPUT! 
nuTPUTi 
LABEL 
CHKPN T 

ALC I 

SOP 2 1 

OPP 

SAVE 

SDR 1 

CP FOB 

OFP 

CONO 

PLOT 

SAVE 

PBTHSG 

LABEL 

JUMP 


7.A5--H1 (9/30/78) 


RIGID FORMAT RESTART TABLES 


DMAP Bit Position 

Inst. 94 100 110 120 130 HO 150 

LaBEL 

PRTPARM 

LAPEL 

PftTPAPM 

LABEL 

PRTPARM 

LABEL 

PRTPARM 

LABEL 

END 
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7.1^ 
7.A3 , 



COMPRESSOR 

BLADE CYCL 

IC MODAL 

FLUTTER ANALYSIS 

RESTART TABLES FOR 

COMPRESSOR 

BLADE CYCLIC MODAL FLUTTER 

Bi t 

Positions for 

Card Name 

Restart 

Table 


Card N*>n# 

Bit Pot. 

Card Name Bit Po», 

Card Name 

Bit Po 

AOUNl 

1 

t QOPLt 

2 

flAT2 

B 

aouf<2 

i 

Cv'UAOl 

2 

PAt3 

d 

&0UH1 

i 

C .'UA02 

2 

HAITI 

B 

ADUM4 

1 

< duAors 

2 

nAtl2 

0 

AOUH% 

i 

>' NOO 

2 

nATT3 

0 

ADUM6 

1 

SHEAR 

2 

lABlENI 

0 

AOUf<l 

1 

cietra 

2 

TAALEH2 

a 

AOuno 

i 

crcaoRC 

2 

TA JLEP3 

a 

A0Ut«9 

1 

C TRapax 

2 

T tOlEHA 

0 

AXIC 

1 

ctraprg 

2 

T6HPPI3 

0 

Axlf 

t 

ctoqsc 

2 

lEHPNIt 

a 

cet-Asi 

t 

CTRUt 

2 

AXl SVP 

9 

CELAS2 

1 

CrRlA2 

2 

CRICOI 

9 

CEIAS) 

1 

C tRIAAA 

2 

CR1C02 

9 

CElAi^ 

i 

C TRIARC 

2 

HPC 

9 

CKASSl 

i 

CTRUrS 

2 

PPCAOO 

9 

CNAiS2 

1 

CtRHEH 

2 

HPCt 

9 

CMASSl 

1 

ciRPtr 

2 

RPC AX 

9 

CnASS<> 

1 

CruBE 

2 

SPC 

10 

COAOIC 

1 

CTNisr 

2 

SPCt 

10 

CORDia 

1 

CUEOGE 

2 

SPCAOO 

10 

COROIS 

1 

PBAR 

] 

SPCAX 

10 

COA02C 

i 

PC ONE AX 

) 

SPCS 

to 

coeo2a 

1 

POUHl 

i 

ASET 

11 

C0RD2S 

1 

P0U«2 

1 

ASETI 

11 

CAOSEt 

1 

POUn} 

} 

OHI 1 

11 

GRID 

1 

POUPA 

3 

oniM 

11 

CRICB 

1 

POUHS 

3 

OHITax 

11 

POINTAI 

1 

POUM* 

3 

SUPAX 

12 

AlhGAX 

1 

pounr 

3 

Sopor r 

12 

RINCEL 

1 

PDUHB 

3 

lEHP 

•13 

5ECIAX 

i 

PDUHO 

3 

TEPPAX 

1 1 

SeoGP 

1 

PiHEl 

3 

lEPPO 

13 

SPOINf 

1 

PQOHEN 

5 

TEHPPl 

13 

SAROR 

2 

PaOPLT 

3 

TenPP2 

13 

CBAR 

2 

PQUAOt 

3 

TEPPP3 

13 

CCOKEAX 

2 

P0UAD2 

1 

TEPPRO 

13 

COUMI 

2 

PQUAOTS 

3 

CROPNT 

15 

C0UM2 

2 

PR 00 

3 

PlOtEL 

16 

COU«J 

2 

PSHEAR 

3 

PIOT* 

la 

CDU«A 

2 

PIQRORC 

3 

POUII 

19 

CDUM? 

2 

PfRAPAX 

3 

XTOUU 

20 

C0U"6 

2 

PtROSC 

3 

aouTi 

21 

CDU«7 

2 

PtRIAt 

3 

CUUPHASS 

2A 

COu*>6 

2 

PTRIA2 

3 

CPBAR 

2A 

COUXd 

2 

PIRt AAX 

3 

cpDPir 

29 

CFLUI02 

2 

P1R lAf 5 

3 

CPOuAOl 

29 

CF(UIO) 

2 

PrRPEH 

3 

CP0UA02 

29 

CFLUIDA 

2 

PtRPLt 

3 

CPROO 

29 

CtiEXAi 

2 

PtUBE 

3 

CPTRBSC 

29 

CM£»A2 

2 

PIUISI 

1 

CPIRIAI 

29 

cihcxi 

2 

CENCL 

A 

CPIRIA2 

29 

ClHtW 

2 

CONHI 

S 

CPIRPLT 

29 

C JHEX3 

2 

C0N«2 

i 

CPTUSE 

29 

CONROO 

2 

PELAS 

6 

erpAss 

29 

CGO«£M 

2 

PPASS 

7 

N003E 

26 



PAU 

S 

PAEROl 

29 
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<1 


RIGID FORMAT RESTART TABLES 


lard Name 

BU 

SET) 

32 

SET2 

32 

splinei 

32 

SPLINE2 

32 

MKAEROI 

34 

MKAER02 

34 

AEFACT 

35 

FLFACT 

36 

FLUTTER 

36 

AERO 

37 

CAER01 

37 

FMETHOOS 

38 

VREF 

39 

TF 

40 

CYJOIN 

41 

CTYPE 

41 

NSEGS 

41 

KINDEX 

41 

CYCSEQ 

42 

STREAML 1 

42 

STREAML2 

42 

IREF 

42 

MINMACH 

42 

MAXMACH 

42 

MTYPE 

42 

KGGIN 

43 

SDAMPS 

55 

TABDKP! 

55 

EPOINT 

56 

SEQEP 

56 

B2PPS 

57 

OMIG 

57 

K2PP$ 

57 

M2PPS 

57 

TFS 

57 

EIGR 

5G 

methods 

59 

EIGC 

60 

EIGP 

60 

CMETHODS 

61 

HFREQ 

62 

LFREQ 

62 

LHOOES 

62 





I 

\ 

i 

1 

I 

> 


r 
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COMPRESSOR BLADE CYCLIC MODAL FLUTTER ANALYSIS 


2 Bit 

Positions for File 

Name Restart Table 


File Name Bit Pos. 

File Name 

Bit Pos . 

BGPDT 

94 

KELM 

122 

CSTM 

94 

MOICT 

122 

EQEXIN 

94 

MELM 

122 

GPDT 

94 

MAA 

123 

GPL 

94 

ACPT 

124 

SIL 

94 

AERO 

124 

ECT 

95 

BGPA 

124 

GPTT 

96 

CSTMA 

124 

EST 

97 

ECTA 

124 

GEI 

97 

EQAERO 

124 

GPECT 

97 

FLIST 

124 

GPST 

98 

GPLA 

124 

K6GX 

98 

SILA 

124 

MGG 

99 

SILGA 

124 

KGG 

100 

SPLINE 

124 

R6 

101 

USETA 

124 

USET 

101 

ELSETS 

125 

OGPST 

102 

GPSETS 

125 

GM 

103 

PLTPAR 

125 

KNN 

104 

PLTSETH 

125 

MNN 

104 

GTKA 

126 

KFF 

105 

AJJL 

127 

KFS 

105 

OIJK 

127 

MFF 

105 

02JK 

127 

XAA 

106 

SKJ 

127 

KLL 

107 

OlJE 

128 

KLR 

107 

D2JE 

128 

KRR 

107 

BXHH 

129 

MLL 

107 

KXHH 

129 

MLR 

107 

MXHH 

129 

MRR 

107 

FSAVE 

129 

LLL 

108 

CASEYY 

1 30 

DM 

109 

CLAMAL 

1 30 

HR 

1 10 

OVG 

130 

EED 

1 1 1 

PHIHL 

1 30 

EQDYN 

t 1 1 

CLAMALI 

131 

GPLD 

1 1 1 

CPHIHI 

131 

SILO 

1 1 1 

CPHIA 

132 

TFPOOL 

111 

RP 

1 32 

USETD 

111 

CASEES 

133 

LAMA 

112 

CEIOS 

134 

MIX 

1 12 

HT 

136 

OEIGSX 

112 

QfACX 

136 

PHIA 

112 

OCPHIP 

137 

GO 

113 

OEFC 1 

137 

B2PP 

1 1 4 

OESCl 

137 

K2PP 

114 

OQPCl 

137 

M2PP 

114 

PCPHIP 

137 

GMD 

115 

QHHL 

138 

GOO 

115 

QJHL 

138 

6HH 

1 1 6 

6200 

1 39 

KHH 

116 

K200 

139 

MHH 

116 

M2DD 

139 

PHIOH 

116 

CYCO 

1 40 

CLAMA 

117 

KKK 

141 

OCEIGS 

117 

MKK 

141 

PHIK 

1 1 7 

PHIK 

142 

CPHID 

118 

LAMK 

142 

CPHIP 

1 20 

PHIG 

143 

QPC 

120 

PVECT 

1 44 

KDICT 

1 22 

PHIAX 

145 
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RIGID FORMAT RESTART TABLES 


. 3 Card Name Restart Tafate 


OMAP BU PosUfon 

Inst. 1 10 20 40 50 


BECtM 

123456789.0 

123456 890 

1234 

6 

9 

2 

4567890 


FILF 

1234567890 

1234 9 

1234 

6 

9 

2 

4567890 


6P1 

1 








SaVF 

1 








COMO 

1 








CMKPMT 

1 








ess 

6 








PUR GF 




6 



7 


GP2 

12 45 

6 







CHKPMT 

12 45 

6 







ess 

6 








GP3 

12 

3 







Chkpnt 

12 

3 







ess 

6 








TAl 

1234567 

3 







SavF 

1234567 

3 







COMO 

123^567 

34 







PURGE 

1234567 








CHK PMT 

1234567 

3 







ess 

6 








pas a'l 

123 6 8 

3 







PiRAM 

123 5 78 

34 

4 






PARAM 








3 

COMO 








3 

PAR4« 








3 

IMPUTTl 








3 

FOUIV 








3 

CHXPNT 








3 

sSS 

6 








LABEL 








3 

EMG 

123 5678 

34 

4 





3 

SAVE 

123 5678 

34 

4 





3 

CHKPMT 

123 5678 

34 

4 





3 

SSS 

6 








COMO 

123 6 8 

3 






3 

FHA 

123 6 8 

3 






3 

CHKPM T 

123 6 8 

3 






3 

SSS 

6 








LABEL 

1 23 6 8 

3 






3 

cnvn 

123 5 78 

34 

4 






e*< A 

123 5 78 

34 

4 






CHKPM T 

123 5 78 

34 

4 






SSS 

6 








COMP 

123 5 78 

34 5 

4 






CPWG 

123 5 78 

345 

4 






OPP 

123 5 78 

345 

4 






LABEL 

123 5 78 

34 5 

4 






EOU [V 

1234 6 8 

3 






3 

CHKPMT 

1234 6 8 

3 






3 

SSS 

6 








COMO 

1234 6 8 

3 






3 


60 

S67890|12 

367S90U2 
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COMPRESSION BLADE CYCLIC MODAL FLUTTER ANALYSES 


UMAP 
Inst . 


Bit Position 

10 20 30 40 50 


SMA3 

Chkpmt 

SSS 

LABEL 

SAVE 

PAB A^ 

CONO 

PUaCE 

GPCVC 

SAVE 

Chkpnt 

SSS 

CONO 

CONP 

GPSP 

SAVE 

CONO 

OPP 

LABEL 

EOOI V 

chkpnt 

SSS 

CONO 

«CE I 

CHKPNT 

SSS 

«CE2 

CHKPNT 

SSS 

LABEL 

EOUIV 

CHKPN T 

SSS 

CONO 

SCF I 

CHKPNT 

SSS 

LABEL 


1234 6 8 
1234 6 8 
6 

1234 6 8 

I 

1 

I 

I 

I 

1 901 

I 901 

I 901 

6 

I 901 

1234 6 890 
1234 6 890 
1234 6 890 
1234 6 890 
1234 6 89C 
1234 6 89C 
123456789 
123456709 
6 

123456789 
1 9 

1 9 

6 

123456789 

123456789 

6 

123456789 

1234567890 

1234567890 

6 

1234567890 

1234567890 

1234567890 

6 

1234567890 


3 

3 

3 


3 

3 

3 

3 

3 

3 

4 

4 

34 

3 

3 

34 

34 

34 

34 

34 

34 

34 

34 

34 


9d 


12 


9C12 

9C12 

9C12 

9C12 


4 

4 

4 


4 

4 

4 

4 

4 

4 

4 

4 

4 


EOUIV 
CHKPN T 

SSS 

CONO 

SHP I 

CHKPNT 

SSS 

SMP2 

CHKPNT 

SSS 

LABEL 

OPP 


I23456709dl 

I23456739dl 

6 

12345678901 
1234 6 89cjl 
1234 6 89qi 
6 

123456789nll 

123456789cil 


34 

34 

34 

3 

3 

34 

34 


6 ■ 

123456789CI 34 
I 9012 


4 

4 

4 


4 

4 

4 


3 

3 

3 


3 


3 

3 

1 

I 

1 


3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 


3 

3 

3 


0 


60 


6 8 0 
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ftlGIO FORMAT RESTART TABLES 


DMAP 

Inst. 


Bit Position 

10 20 ”30 40 


SO 60 


SAVE 1 90 

12 


0 


6 8 01 

C090 1 90 

12 


( 


6 8 0 

eouiv 123<«567 90 

12 4 

234 



6 8 

CYCT2 U3'i56789C 

1 



1 3 


SAVE 1234567890 

1 



1 3 


CHKPNT 1234567890 

1 



1 3 


sSS 6 






CONO 1234567890 

1 



1 3 


PcAO 1234567890 

1234 

4 


1 3 

89 

SAVE 1234567890 

1234 

4 


1 3 

89 

CHKPNT 1234567690 

1234 

4 


1 3 

89 

SSS 6 






PAOAM 1234567890 

1234 

4 


1 3 

89 

□FO 1234567890 

12 34 

4 


1 3 

89 

SAVE 1234567890 

1234 

4 


1 3 

89 

CDND 1234567890 

1234 

4 


1 3 

89 

CYCT2 1234567890 

1 

4 


1 3 

89 

SAVE 1234567890 

1 

4 


1 3 

89 

CHKPNT 1234567890 

1 

4 


1 3 

89 

iSS 6 






CD*'0 1234567890 

1 

4 


1 3 

89 

soft 1 1234547690 

I 

4 


1 3 

89 

soft 2 

89 





OFP 

9 





SAVE 

9 





AP08 12 90 

12 


4567 

123 


SAVE i: 90 

12 


4567 

123 


CHKPNT 12 90 

12 


4567 

123 


SSS 6 






PAftTN 12 90 

12 



1 1 

89 

SMPYAO 12 90 

12 



t 5 

09 

MTftXIN 1 


23 

0 


67 

SAVE 1 


23 

0 


67 

PURGE 12 4 


23 

0 


67 

EOUIV 12 4 9 

1 

23 

0 


67 

CHKPNT 12 4 9 

1 

23 

0 


67 

SSS 6 






CKAD 1234 6 890 

1 34 

23 

0 

123 

67 

CHKPNT 1234 6 890 

1 34 

23 

0 

123 

67 

sSS 6 






CkAH 1234567890 

1234 

234 

0 

123 

56789 

SAVE 1234567890 

1234 

234 

0 

123 

56789 

CHKPNT 1234567890 

1234 

234 

0 

123 

56789 

SSS 6 






PARAML 

8 





$SS 7 






PUP GE 

a 





SSS 7 






COND 

8 





SSS 7 






PLTSET 

8 
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DAMP 

Inst, 1 TO 


SSS 

SAVE 

SSS 

PRTMSG 

SSS 

PARAH 

SSS 

PAR AM 

SSS 

cowo 

SSS 

PLOT 

SSS 

SAVF 

SSS 

PRTMSG 

SSS 

LA8CL 

SSS 

COMO 

PAP AM 

AMG 

SAVF 

CHKPNT 

SSS 

COMO 

INPUTT2 

LABEL 

PAP AM 

AMP 

SAVE 

CHKPM 

SSS 

PARAM 

PAP AM 

PARAM 

PARAM 

JUMP 

LABEL 

PAI 

SAVE 

CFAO 

SAVF 

COMO 

Cn.ND 

VDP 

SAVP 

CONO 

OFP 

SAVE 

LABEL 


7 

7 

7 


7 


7 

7 

7 

7 

7 

7 

I 

1 

I 

1 

1 

6 


9dU 


123^567090123 
123A567890123 
I23'.567890l23 
123A56789qi23 
6 


123^56789(3123 
123^5678901123 
123'.56789dl23 
l23A56739qi23 
12345673-Vdl23 
123A56 7890123 
123A5678qdl23 
1239567890123 


Bit Position 
20 30 40 


8 

8 

8 


8 

8 

8 

8 


8 

3 


9 

9 

9 

9 


5 7 
95 7 
95 7 
95 7 




23 

23 

23 


6 

6 

6 

9 6 
9 6 
9 6 
9 6 


9 

9 

9 

9 


7 

7 

7 

2 *75 7 
2 <<5 7 
2 M5 7 
2 *(5 7 


123 

123 

123 

123 



I 

1 

1 

1 

I 

1 

I 


9 6 
9 6 
9 6 
9 6 
9 6 
9 6 
9 6 
9 6 


9 

9 

9 

9 

9 

q 


2 956789(3 
2 9S57890j 
2 956789C 
2 956789C 
2 956739C 
2 9567390 


123 

123 

123 


9 

9 


2 9567393123 
2 95678913123 
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6 s q 


6 89 2 

6 89 2 

6 89 2 

6 89 2 


567890 12 
567890 12 
56789012 
56789012 
567890 12 
56789C12 
567890 12 
567890 12 
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DMAP 

Inst. 


10 


Bit Position 
20 30 40 


FA2 

SAVE 

CHKPNT 

SSS 

cono 

LA6PL 

CO'iD 

PEPT 

JU«P 

LA6Rl 

CH<PNT 

iSS 

PAR 4 '^t. 

COMO 

xyTRA^' 

SAVc 

XVPLQT 

LABEL 

Pflp AM 

COMO 

MOOACC 

DOR 1 

CHKonT 

SSS 

EOUIV 

CONO 

SDR I 

LABEL 

Chkpnt 

tSS 

EOUIV 

COND 

VGC 

PARTM 

LABEL 

SDP 2 

CHKPNT 

SSS 

OFP 

CDNO 

SSS 

PLOT 

SSS 

PP T«SC 


123456789ai23 
U3ASb789dl23 
l234S67S9cjl23 
6 

l23A56789dl23 
123<*5678<3C123 
123V56789C123 
l23'tS6789Cl23 
123456789C123 
123A56789C123 
I23456789qi23 
6 


123A56789Q123 
123<*S6789C123 
123A567890123 
123't587090l23 
I23456789qi23 
6 

123456789C 
123A56789C 
123A567890 
123A567890123 
l?3A567890|l23 
6 

l23A5b7890t23 
123A567890 
1234567890 
1234567890123 
1234567690123 
1234567390123 
123456789^123 
6 


123 

123 

123 


123 
112 3 


7 

7 


4 6 9 

4 6 9 

4 6 9 

4 6 9 

4 6 9 

4 6 9 

4 6 9 

4 6 9 

4 6 9 

4 6 9 


0 

0 

0 

c 

0 

0 

1 

1 


4 6 9 

4 6 9 

4 6 9 

4 6 9 

4 6 9 


2 

2 

2 


4567890123 


4567890 123 
456789C 123 


2 

2 

2 

2 

2 

2 

2 


456789C 

4567890 

4567890 

456769C 

456789C 

456789C 

456739C 


123 

123 

123 

123 

123 

123 

123 


2 

2 

2 

2 

2 


456789C 
456789C 
456789C 
4 6789C 
4 6789C 


123 

123 

123 

123 

123 


4 6 9 

4 6 9 

4 6 9 

4 6 9 

4 6 9 


2 

2 

2 

2 

2 


4567890 


123 


4567390 123 
4567B90 123 


456789C 123 
456789C 123 


4 6 
4 6 
4 6 
4 6 
4 6 
4 6 
4 6 


9 

9 

9 

9 

9 

9 

9 


2 

2 

2 

2 

2 

2 

2 


456789^ 

456789 

456789d 

45678901 

456789 

4 56 79901 

456739d 


123 

qi23 

123 

123 

qi23 

123 

123 


9 

8 

8 


8 


SSS 

LABEL 

SSS 

JUMP 

LABEL 

PR'fpAPW 

LABEL 


f 

1234567090a 

12345678901 

12345'6789C 
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23456 89ci 


'234 
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123456 8901234 
123456 8901234 


2 4567890j 
2 456789 
2 4567890 
2 4567890 
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0123 
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Bit Pos i 1 1 on 

Inst. 1 10 20 40 


PRTP4RM 

LAPEL 

PRTPAfi'l 

label 

PRTPAP'^ 

label 

PRTP4R'< 

LABEL 

PRTP4fi'< 

lapel 

FNO 


J23A567890 

I23^567890jl 

123A5678901 

123A5678901 

123'»567890l 

123A5678901 

123<*5678901 

123A567890: 

L23A5678901 

123'i567890 

123A567890 


1123A56 
23A56 
23'»56 
23A56 
23<«56 
23A56 
23A56 
123456 
2 3456 
123456 
123456 


09( 
89C 
89C 
89C 
89( 
89( 
89( 
89 C 
89C 
89C 
89f 
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1234 6 
1234 6 
1234 6 
1234 6 
1234 6 
1234 6 
1234 6 
1234 6 
1234 6 
1234 6 


9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 


2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 


4567890 

4567890 

4567830 

4567890 
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4567890 
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4567890 
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123 

123 
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123 
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50 
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56789012 
56789012 


I.X) -9 ( 9 / 30 / 78 ) 


RIGID FORMAT RESTART TABLES 


1,11 .4 Rigid Format Change Restart Table 


OMAP Bit Position 

Inst. 63 70 80 

BEGIN 3A567890I23-V567 3^5 

FILE 345678«>0123^567 3^5 

GP I 
SAVE 

CONO 3*.Si7890l23<.567 3^5 

CHKPNT 

PURGE 

CP 2 

CWPN T 

GP3 

CHXPNT 

TA I 
SAVE 


CQNO 3<t567890l234567 

PUR GE 

CHKPNT 

PAftAM 

PAP.AM 3 678 

PAR AM 
CONO 
PAR A“ 

INPUTTl 

EOUlV 

CH<PNT 

LABEL 

ENG 3 678 

SAVE 3 678 

CHKPNT 3 678 

CONO 
EM A 

ChrpN T 
LABEL 

CONO 3 678 

Ema 3 678 

CHKPNT 3 678 

CONO 

GPWG 

DFP 

L ABEL 

EOU ! V 

CHKPNT 

CONO 

SMA 3 

CHK PN T 

LABEL 

GPA 

SAVE 

PAR AM 

CONO 

PURGE 

GP C YC 
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DMAP 6 1 t Pos 1 t1 on 

Inst. 63 TQ 80 

SAVE 

Chxpmt 

CONO 

CO»<D 

GPSP 

SAVE 

COMO 

OFP 

L A9EL 

EOUtV 

CHKPN T 

cn*'jn 

MCE 1 

CHKPNT 

MCF2 

CWPNT 

LABEL 

EOUl V 

CHKPNT 

CONO 

SCFl 

C HK PN T 
LABEL 

eout V 

CHKPNT 

COND 

SMP I 

CHKPN T 

SHP2 

CHKPNT 

LABEL 

DPO 

SAVE 

COND 3‘.5670'JO123a567 3<»5 

EOUIV 

CYCT2 

SAVE 

CHKPNT 

COND 

PE40 

SAVE 

C HK PN T 

PAR AY 

DEO 

SAVE 

COND 3‘.567890123^567 3'*5 

CYCT2 

SAVE 

CHKPN T 

COND 

SDR I 
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I 




DMAP 

Inst. 



80 


S DR 2 

OPP 

SAVE 

APOe 

SAVE 

CHKPNT 

PARTS) 

SMPYAO 

MTHXIM 

SAVE 

PUR GE 

BOUIV 

CHKPNT 

GKAO 

CHKPNT 

GKAs* 3 23‘» 

SAVF 3 2'i‘» 

CHKPNT 3 234 

PAR AML 

PURGE 

CONO 

PLTSET 

SAVE 

PRTNSC 

PAR AN 

PAR AN 

CONO 

plot 

SAVE 

PRTMSG 

LABEL 

CONO 

PAHAN 345678901234567 345 

ANG 

SAVE 

CHKPNT 

COND 

INPUTT2 

LABEL 

PAP AN 

AMP 

SAVE 

CHKPNT 

PAR AN 

PAR AN 


PAR AN 

345670901234567 

345 

PAR AM 

>45678901234567 

345 

JUNP 

345678901234567 

345 

LABEL 

345678901234567 

345 


FA I 
SAVE 
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DMAP Bit Position 

Inst. 63 7B 80 

CFAO 

SAVF 

cnsD 

COMO 

VOR 

SAVE 

COMO 

OFP 

SAVE 

LABEL 

FA? 

SAVE 

CHKPNT 


COND 

34567BS0123A567 

395 

label 

3A56789012345A7 

395 

CONO 

34567B90123‘»567 

395 

PfPT 

3't567690l23‘t567 

395 

JUMP 

3A567890123A567 

395 

LABEL 

395678901239567 

395 

CHKPNT 

395678901239567 

395 


PA84ML 

CCINO 

KVTB AN 

SAVE 

XYPLOT 

LABEL 

PAR AM 

COND 

MODACC 

OOP I 

CHUPNT 

EOUtV 

C0^!0 

SDR 1 

LABEL 

CHKPNT 

EQUIV 

CC1ND 

VEC 

PAP TN 

LABEL 

SDP 2 

CHKPNT 

OFP 

CDND 

PLOT 

poTMSG 

LABEL 


JUMP 

395678901239567 

395 

LABEL 

395678901239567 

395 

PPTPAPM 

39567S901239567 

395 





f 

t 
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OMAP 
Inst . 


Bit Posi tion 


LABEL 

3<tS67890l23A567 

345 

PRTPABM 

3<»567890l23'f567 

345 

LABEL 

3^567890t23<»567 

345 

PRTPARM 

3-V567890123-V567 

345 

LABEL 

3A567B90123<i567 

345 

PRTPARM 

3'>S678901234587 

345 

LABEL 

3A567890123<<5A7 

345 

PRTPARM 

3<.567890123<>567 

345 

LABEL 

3'*567890l23<r567 

345 

PRTPARM 

3«567890123‘»567 

345 

LABEL 

3'»56709O123^567 

345 

EMO 

3-*567890l 234567 

345 
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T .5 File Name Restart Table 


DMAP 

Inst. 94 100 


B 1 1 Pos 1 1 1 on 

ITS 120 


BEGIN 
PILE 
GP I 
SAVE 
CONO 
CH« PN T 
PURGE 
GP2 

CHKPNT 

GP3 

CHKPNT 

TAl 

SAVE 

CPNO 

PURGE 

CHKPNT 

PAR AM 

PAR 4M 



PAR AM 
CONO 
PAP AM 
INPUTT I 
EOU IV 
CHKPN T 

LABEL 

EMC 

SAVE 

CHKPNT 

CONO 

E'M A 

CHKPNT 
LABEL 
CD NO 
EMA 

CHKPNT 

CONO 

GPWG 

OFP 

LABEL 

EOUt V 

CHK PN T 

CONO 

SMAJ 

CHKPNT 

LABEL 

GP^ 

SAVE 

PAR AM 
C"NO 
PURGE 
GPCYC 


e 

3 

9 

6 

8 

8 


8 

8 

8 

6 

9 

9 

9 


0 

0 

0 

0 

0 

0 

L 

I 

I 


3 5 


2 

2 

2 


J5 0 


130 


a 


140 


0 


150 
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DMAP 

Inst. 94 

SAVE 

CHRPNT 

COND 

COVD 

GPSo 

SAVE 

CriMD 

QFP 

LABEL 

eouiv 

Cmkpm 
COND 
“CE I 
CHXPNT 
“CE2 
CH<PN T 

label 

EOU IV 

CHKPNT 

CONO 

SCFl 

CHRPNT 

LABEL 

EOLMV 

CHKPNT 

CnNO 

S«p I 

CHKPNT 

S'<P2 

CHRPN 

label 

DPO 

SAVE 

CO'JO 

EOUIV 

CYC’’2 

SAVE 

CHKPNT 

cosn 

PEAO 

SAVE 

CHKPNT 

PABAN 

OPP 

SAVE 

CONO 

CYCT2 

SAVE 

CHKPN T 

CONO 

SOP I 


Bit Posi tion 

100 iTo 120 130 



2 

2 

2 

2 


4 

*1 

4 

4 

h 
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OMAP Bit Position 

Inst. 94 TOO 1T0 TTO 130 140 150 


S0R2 

OFP 

SAVE 

AP03 

SAVE 

CHRPN T 

PARTN 

S'lP vao 

MTPX IN 

SAVE 

PURGE 

EOUtV 

CWPNT 

GKAO 

CHKPN T 

GK AM 

SAVE 

C«<PNT 

PAR AML 

PURGE 

COND 

PLTSE T 

SAVE 

PR TH SG 

PAR AM 

PAR AM 

COND 

PLOT 

SAVE 

PRTM SG 

LABEL 

COND 

PARAM 

AMG 

SAVE 

CHKPN T 

COsn 

INPUTT2 

LABEL 

PAR A“ 
AMP 
SAVE 
CHKPN T 
PARAM 
PARAM 
PAR AM 
P AR AM 
JUMP 

LABEL 

EAl 

SAVE 


4 6 
4 6 
4 6 


4 

4 

4 

4 

4 

5 

5 

6 

b 

6 

5 

5 

5 

5 

5 

S 

5 

5 

5 

5 

5 

S 

5 


7 

7 

7 

8 

8 

8 



41 

■» 

S 

1 


8 

8 

8 

8 


<) 

9 
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DMAP Bit Pos iti on 

Inst. 94 100 1T6 120 


CEftO 

SAVE 

COND 

COMO 

vn» 

SAVE 

COMO 

OFF 

SAVE 

LAPEL 

FA2 

SAVF 

CHKPNT 

COMO 

LABEL 

COMO 

REFT 

JUMP 

LABEL 

CHWRMT 

PABAML 

COMO 

xytram 

SAVE 
XVPLOT 
LABEL 
PAP AM 
COND 
MOOACC 
OOP I 
CH<PNT 

eouiv 
COMO 
son I 
LABEL 
chkpnt 

EOUIV 

COMO 

VEC 

PAP TV 

LABEL 

SO» 2 

Chkpnt 

OEP 

COMO 

PLOT 

PR TNSG 

LABEL 

JUMP 

LABEL 

PR TP ARM 


9 

1 


a 

6 


0 

0 

0 

0 

0 


130 140 


o 

o 

0 


I 3 


A 

X 

2 

2 

2 


7 

7 


150 
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DMAP Bit Positio n 

Inst, 94 100 ITO T20 130 140 150 

LABfL 

PPTPABM 

LABEL 

PRTPABM 

LABEL 

PRTPARM 

LABFL 

PR TP ARM 

LABEL 

PP TP ARM 

label 

EMO 
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This section contains new and replacement pages for Level 17.7 of 
the NASTRAN Demonstration Manual, NASA SP-224(05). 

The updates pertain to new demonstration problems. Pages to be 
replaced and inserted are; 
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RIGID FORMAT No. 9 (APP AERf)), Aeroelastic Analysis 


Hodalt Flutter and Subcritical Roots Analyses of an Antal Flow 

t 

Comprjessor Stage (9-5-1) 


A. Description 

The problem illustrates the use of the aeroelastic cyclic modal and flutter 
analyses of the first stage rotor of an axial flow air compressor to, 

i) determine the natural frequencies and mode shapes of the bladed disc 
sector, of Figure 1, which exhibits rotational cyclic symmetry. The total stiff- 
ness matrix, including the differential stiffness effects at the operating point 
under consideration, saved during the Static Aerothermoel as ti c “Analysis" (see 
Demonstration Manual example 16-1) is used for the cyclic modal analysis. 

ii) examine if the operating point being considered is a flutter point by 
analyzing the V-g and V-f plots based on user-selected combinations of densities, 
inter-blade phase angles and reduced frequencies, and in the process 

iii) identify the subcritical (stable) roots. 

B. Input 

Bulk data cards used include AER0, FLFACT, FLUTTER, HKAER01 , STREAMLl, 
STREAMLZ and PARAMeters IREF, KG6IN, LMPDESi MAXMACH, MINMACH, HTYPE and PRINT as 
described in the User's Manual Sections 1.15.2 and 1.15.5. Bulk data cards 
CYJPIN and PARAMeters CTYPE, KINDEX and NSE65 are discussed in Section 1.12 
of the User's Manual . 

C. Analyses and Results 

The finite element model of the bladed disc sector analyzed is shown in 
Figure 1. The first five zeroth harmonic natural frequencies and mode shapes of 
the sector are noted in Table 1. The grid points on the hub in contact with the 
compressor shaft were permitted radial translational degree of freedom only. 
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As a typical esample, the first of the three frames of V-g and V-f plots out- 
put requested in this demonstration problem is shown in Figure 2. The density 
and interblade phase angle are held constant at (O.OS9 r 1.507 E-6) slinch/in^ 
and 180°, respectively, for this frame. The three reduced frequencies are identi- 
fied by the symbols *(k«0.3), 0(k=0.7) and A(k=1.0). The flutter summary for the 
three (p.o, k) groups is presented in Table 2. 

A close examination of the damping curves shows that the damping is nearly 
zero in the fourth mode of frequency 1797 

The implied density, velocity and reduced frequency are, respectively 
(0,059 X 1.507 E-6) slinch/in^, 1.055 E4 in/sec and 1.0 as compared with the 
actual values of these quantities as (0.059 x 1.507 E-6) slinch/in^, 1.910 E4 
in/scc and 1.0, respectively. 

The ratio not being equal (or close) to 1,0 discounts the 

current operating point as being on a flutter boundary, at which all the three 
implied quantities must equal the actual quantities. 

The demonstration example discussed has been presented principally for the 
purpose of illustrating the procedure for axial flow compressor flutter analysis. 
In order to locate the unstalled flutter boundaries over the entire region of 
operation of the compressor stage, similar analysis would be required for a 
series of operating points, harmunic numbers, interblade phase angles and 
reduced frequencies for both the stage rotor and the stator. Appropriate super- 
position of the rotor and stator results would then help identify the unstalled 
flutter boundaries on the compressor stage map. 
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Table 2, flutter Summary (k-Method) 


pok 

Group 




Reduced 
Frequency k 




pjoikj 


Velocity V, in/sec 

Damping g 

Frequency f, Hz 

1 

9.Zdl E3 

-3.199 E-3 

! 472 

1.599 E9 

-2.291 E-3 

j 

! 791 

1.911 E9 

-3.642 E-3 

976 

3.530 E4 

4.261 E-3 

1803 

3.956 E3 

-9.376 E-4 

471 

6.633 E3 

-6.666 E-4 

790 

8.199 E3 

-1,379 E-3 

977 

1.508 E4 

8.001 £-4 

1798 

2.769 E3 

1 

-7.441 E-4 

471 

4.643 E3 

-6.B92 E-4 ' 

1 

790 

5.740 E3 

-4.602 E-4 1 

1 

977 

1.055 E3 

1 

-8.848 E-5 i 

1797 
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RIGID FORMAT No. 16, Static Aerothermoel astic 'Design/Analysis* 
Aeroelastlc * lies i gn/ Analys i s ' of an Axial Flow Compressor Stage (16-1) 

A. Description 

This problem illustrates the use of the static aeroelastlc analyses of the 
first stage rotor of an axial flow air compressor to determine, 

i) the “as manufactured" blade shape required to produce the design point 
pressure ratio {"design" problem), and 

11) tlie operating point of the "flexible" designed blade (“analysis" 
problem). The total stiffness matrix, consisting of the elastic and geometric 
stiffness matrices, at any off-design operating point is saved for use in subse- 
quent modal and flutter analyses. (See Demonstration Manual example 9-1). 

The 43-blade rotor is designed to develop ‘a total pressure ratio of 1.85 at 
a speed of 16043 rpm and an air flow rate of 73.15 Ibm/sec. The finite element 
model of a representative sector of the rotor is shown in Figure 1. 

B . Input 

Bulk data cards used include DTI, STREAMLl, PARAMeters APRESS, ATEHP, FXCP0R, 
FYCP0R, FZfPBR. IPRTCF, IPRTCl, IPRTCL, KT0UT, PGEPM, SIGH, STREAHL and 20R1GN as 
Illustrated in the User's Manual Section 1.15.3. 

C . Analyses and Results 

The rigid blade of Figure 1 produces a total pressure ratio of 1.85 at 
16043 rpm and 73.15 Ibm/sec air flow rate (Table 1). Because of the elasticity 
of the material, and under the action of centrifugal and aerodynamic pressure and 
thermal loads, the blade deforms and produces a total pressure ratio greater than 
the design value. A "redesign" of the rigid blade, considering the elastic and 
geometric properties of the bladed disc sector, enables determination of the "as 
manufactured" blade shape that, v/lien loaded and deformed, v/ould produce the design 
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pressuro ratio. The 'riyid' performance of the "as manufactured" blade sh.ipe 
obtained at the end of the Design prrblem is also shown in Table 1. 

This blade shape is then "Analyzed", in the current demonstration ti^i'niple, at 
the same (des i gn) speed and flow rate to determine the 'flexible' operating pressure 
ratio. This value (1.84) can be further improved to approach the desired (1.85) 
pressure ratio by reducing the Parameters FXC00R) FYC00R and FZC00R in the Design 
problem (see User's Manual Section 1.15.3). 

The blade shape at various stages during the Design and Analysis problems, as 
reflec:ed by the grid point coordinates, is also shown in Tables 1 and 2. The 
coordinates are expressed in the basic system of Figure 1. 
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Figure 1. Finite Element Model of an Axial Flow Compressor 
Rotor Sector, and the Basic Coordinate System 
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Initial, Designed Blade 
'Rigid' Performance 


As Manufactured" Blade 
'Rigid* Performance 


Total Pressure Ratio 
Rotational Speed, rpm 
Air Flow Rate, Ibm/sec 


1 .85 
16043 
73.15 


1.80 

16043 

73.15 


Grib Points 
1 
Z 

3 

4 

5 

6 

7 

8 
9 


X , in. 

Y,1n. 

Z , i n . 

-0.8980 

-0.2732 

3.7902 

0.0 

0.0532 

3.9996 

0.8980 

1 -0.2499 

4.1926 

-0.7630 

-0.5004 

5.4772 

0.0 

0.0209 

i. 5.5000 

0.7800 

0.2342 

5.4950 

-0. 6290 

-0.7494 

7.3620 

0.0 

0.01 31 

7.4000 

0.6290 

0.6369 

7.3725 

-0.4240 

-0.9330 

9.9564 

0.0 

-0.0221 

10.0000 


X,in. 

Y , i n . 

Z,in. 

-0.8981 

-0.2755 

3.7796 

-0.0001 

0.0540 

3.9986 

0.8979 

-0.2464 

4.1847 

-0.7653 

-0.4830 

5.4554 

-0.0005 

0.0209 

5.4985 

0.7799 

0.2307 

5.4889 

-0.6386 

-0.7217 

7.3281 

-0.0091 

0.0155 

7.3976 

0.6240 

0.61 23 

7.3416 

-0.4058 

-1.1351 

9.8905 

-0.0106 

-0.0236 

9.9970 


0.4140 


0.4240 


0.7598 


9.9711 


0.8134 


9.9304 










As Manufactured" Blade 
•Rigid' Performance 


As Manufactured" Blade 
'Flexible' Performance 


Total Pressure Ratio 
Rotational Speed, rpm 
Air Flow Rate, Ibni/sec 

1.80 

1CD43 

73,15 

1.84 

16043 

73.15 

Grid Po i nts 

X , in. 

V , i n. 

2. in. 

X.in. 

V,in. 

Z.in. 

1 

•0.8981 

-0.2755 

3.7796 

-0.8979 

-0.2814 

3,7712 

2 

-0.0001 

0.0540 

3.9986 

0.0001 

0.0516 

4.0003 

3 

0.8979 

-0.2464 

4.1847 

0,8981 

-0.2461 

4.1795 

4 

-0.7653 

-0,4830 

5.4554 

-0.7726 

-0.4744 

5.4413 

5 

-0.0005 

0,0209 

5.4985 

-0,0031 

0.0228 

5.5033 

6 

0.7799 

0.2307 

5.4889 

0.7797 

0.2247 

5.4889 

7 

-0.6386 

-0.7217 

7.3281 

-0.6646 

-0.7082 

7.3062 

6 

-0.0091 

0.0155 

7,3976 

-0.0157 

0.0164 

7.4058 

9 

0.6240 

0.6123 

7.3416 

0.6303 

0.5962 

7.3237 

10 

-0.4058 

-1.1351 

9.8905 

-0.5237 

-1.1552 

9.8520 

11 

-0.01 06 

-0. 0236 

9,9970 

-0.0320 

-0.0656 

10.0079 ■ 

12 

0.4140 

0.8134 

9.9304 

- 0.4130 

0.7329 

9.9093 




















APPENDIX 


RECODING OF SUBROUTINE UCAS 

The two dimensional supersonic cascade unsteady aerodynamic routine UCAS 
{Ref. 1) delivered as part of the Bladed-Shrouded-Disc Aeroelastic Analysis 
Computer Program (Ref. 2) was recoded to improve the execution time. These 
improvements included the following: 

1. Real variables originally defined as complex variables were changed to 
real to reduce complex arithmetic operations. 

2. Computations within a Fortran loop which resulted in constant values 
and constant subroutines were removed outside the loop and stored for use 
within the loop. 

3. It was noted that many complex exponent equations could be recursively 
formed by constant terms multiplications within loops. Extensive loop 
recoding was inserted to take advantage of this. All four subroutines in 
the module viz. SUBA, SUBBB, SUBC, and SUBD were modified to reflect this. 

4. Alternative methods for reducing the number of iterations used in 
series convergence were considered and inserted into the program. 

A listing of the revised code to generate the generalized modal aerodynamic 
matrices for chordwise aerodynamic modes is included. 

Results for four cases using the original and the revised codes are presented 
in Table 1 at the end of the listing. The execution time has been reduced t o 
about one- fourth the original time, maintaining an excellent agreement between 


the original and the revised code results. 
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REVISED 'UCAS' 


UCAS STA^IO-AIONE TEST (1 SUPER- SOM CD o 
REQUIRED INPUT DATA 15 IN /TEST/» 

NAMELIST/TEST / I REF » D'l NNAC oMAXMAC p Nil NES o NSTNS s REFSTGo REFCRO 

1 REFMACvREFOENcREFVEivREFFiOfiSLNjNSTNSKjST AG6R 

2 CHCRDpRADIUSoBSPACEoMACHjDENp VELbFLONA, AMACHff 

3 REOF oBLSPCoAMACHRcTSONIC^RErCoS IGMA, RFREQ 
REAL MJN'^AC sMAXMACpMACH 

INTEGER SVSBUF »SLNoAf4ACHR 
LOGICAL TSONIC 

COMMON /AMCMN/ NCB t 7J »NRGh pOUI»« 2D »REFC »S IGMA? RFREQ 

COM«43N /BAMGIL/ I REF » l«I NMAC t>MAXMAC o Nil NES ^ NST NS e REFSTGp REFCRD 

1 REFMACjREFDENoREFVELjREFFLOjSLNcNSTNSXoST ACER 

2 CHORD9RADIUSoBSPACE BMACHffOENffVEipFiCWAffAMACHs 

3 REDF tBLSPC yAWACHRjTSONIC 
CO'I'ION /SYSTEM/ SVSBUF 9 ICLT 
DIMENSION IYI 8 ) 

COMPLEX g (3p3I 
I0UT=6 

10 READ! 59 TE STpEND=99SD 

DEGRA=OoO I74i 53292 51 99<> 

AMACH=MACH»COSIDEGRA* IF LOWA-STAGER) > 

R£L)F=RFREQ« (CHORD /REFCRO I «»( REF VEL/ VELD «( MACH/ AMACHD 

BL SPC=BSP ACE /CHORD 

WR ITEI 69 ICCCD SLN 9 SI G J**A »RF REG 

NR ITEI 69 TESID 

CALL GETTIMIIYJ 

CPUl=I¥( 2 I 

CALL AMGBICIQ) 

CALL GETTIMIIY) 

CPU2=IY( 2 ) 

WR ITEI 69 ICCIDQ 
CPU=ICPU2-CPUlD/10C0o C 
WR ITEI 69 10C2DCPU 
GO TO 10 
999 STOP 

1000 FORMAT! "ISLN = « p 1 2 9 ’ 0 SIGMA = ® 9 F 7 . 29 % RFPEQ = %El3o6 // ) 

1001 FORMA T< “OQ—MATR I X FOLLOWS »/(l X 9 I P6E20«7 D D 

1002 FORMAT! “OCPU TIME ON IBM 370/3031 = SF7.2p« SECQNDSoM 
END 
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C « 

C PLACE UCAS SOURCE CODE HEREo * 

C ROUTXr^ES - AMGfUC jSUBAoSUBBBoSUBCffSUBD * 

C ALAMOA 9AKP2;AKAPPA9DiKAPMgASVCONvAKAPM9DRKAPM « 

C * 

C NASTRAIM ROUTINES INVERS AKD f«ESAGE ARE ALSO USEOo « 

C COM'^ON /SYSTEM/ SVSBUF^IOUT US ALSO NECESSARYo SET E0JT = 6II ^ 

C * 


SUBROUTINE AMGBIC IQJ 
COMMON /SVSTEM/SYSBUF oIBBCLT 

COMMON /AMGMN/MCB UT ^^R0I(^)1?DLM(2 } sPEFCjSIGM »RFREQ 

COMMON /BAMGIL/IREF ^MINI^AC oPA «MAC jNLINES ® NSTNS o REFSTG* REFCRDp 

1 REFMAC ^REFDE^ffREFVEL sREFFLO,SLNjNSTNSKffSTG» 

2 CHCRDjRAUI USoBSP ACE sMACH eDEN,YEL»FLOWA» AMACHO9 

3 REDFD9BLSPC sAPACMRflTSCNIC 

C SUPER SONIC 

C 

C UNSTEADY FLOW ANAYSiS OF A SUPERSONIC CASCADE 

C 

C 

C LIFT AND MOMENT COEFICIENT 

C 

CDMMON/BLKl/SCRK 9 SP S » SN S» 0 S TR p All o P I bDE L aS I GMA 9 BET A# RES 
COMMON/BLK 2/BSVCON 

COMMON /6LK3/ SBKOE 1 9 S8KDE 2 9p<» bF 4S 9 A 9F5 S 9F6 S 9 AM<>TS T 9 SUM39 SUM4, 

1 AM5TT9AM69 SUMSVl 9 SUPSV2 9SVKLI 9SVKL2 9F5 oFSTbAMSb AMSTb 

2 A, Bp ALP 9 FI 9 A Ml 9 ALN 9 BLKAP P 0 BKO EL3 9 FIS 9CI 9C2P9C2N9 

3 C2*AMTE ST 9FT29BLAMI ,F T3 pAP2 oSUMl p SUM2 pF2 9 BLAM2 9 FT 2T 9 C IT 9 

4 FT3T9F2P9AM2P9SUWIT9SUM2T9CIP9CIN9 BKDELI9 BKDEL29 

5 DL<API» ARG,ARG2 9FT3TST9 BCoBC 2 bBC 3 sBC 4 bBC 5 9CAI 9CA29CA39 CA4p 

6 CL IFTpCMCMTpPRE SI pPRE S2 pPRES3 bPRE S 4 0 QRES4 9 FQAp FQBp FQ7 
COMMON /BLK4 /I pR p V pAl 9 B1 pC4 pCS pG Lo ! 6 , S 7 9 JL 9 NL pRI 9 RT 9 R5p SNp SPp XL 9 

1 YlpAMUp GAP9IDX9I KXpNL2 pRLl oRL2 9RGI9RQ29XLI9 ALPlp ALP2p 

2 GAMNpGA'iP 9INER9 lOUTpREOF 9 STAG pSTE P9AMACH9 BET NN« BETNPp 

3 BKAPI9XLSVI9XLSV2BXLSV3 pXLSV4 pALPAPPbAMOAXS 9 

4 OISAMP9GUSAMP9PI TAXSpPI TCCR 
COMPLEX S3KDE1 9SBKDE2 

COMPLEX F49F4Sp AM 4 pFS S 9F6 Sp AM4TS T pSUMS 9 SU p AMSTTp AM6 

complex sum S VI 9 sums Y 2 pSVKLI pSVKL 2 pF5 pFSTp AM 5p AM5T 
COMPLEX A I 9A9B pB SYCON pALP 9FI 9 AMI pALK 9BLRAPM9 BKDEL3 p F IS 9 Cl 9 C2Pp C2N 
COMPLEX C 29 A.MTEST pFT2 pBLAMl pF T3 pAM2 9SUMI 9SU M2 pF2 9 BL AM2 9 FT 2Tp C IT 9 
IFT3T9F2P9AM2P9 SUMl Ts SLM2T 

COMPLEX C IP pC lN9BKDELl9eKDEL2 98LKAPl 9ABG9 ARG2 9FT3TST 
COMPLEX BCbBC29BC3pBC 49BC5 9CAI pCA2 oCA3 pCA4 
COMPLEX CLIFT9CMOMT 

COMPLEX PRESl 9PRES2pPRES3 pPRES4 pQRES4 
COMPLEX FQA 9FO8 
COMPLEX FQ7 

COMPLEX PRESUpPRE SLpQ pAVGOP 

DIMENSION GYEI29P2SI pGEE <29920) 9PRESUI29) 9 PRES H 29 ) 9 XU P< 29 J 
DIMENSION XLDWI29) 


I 


I 


I 




'■ 


[5 

1 : 
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I 
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DIMENSSOM AYE(L092^I 
DIMENSIOM tnSe) 

OI^^EMSlflM IIMOEKJ2So3J 
DI«IEMSKOM QdNSTNSoWST^SJ 

OMEMSEOM PRESU2U vPRE S2 «2U oPRES3 821 } 9 PRES4 8 2 IJ 9 QRES4J 2 U 
DIMENS SOM SBKDEl 8 2GU 9 SBKDE 2 (20 SI 

DIMENSSOM SlMSVU2a I 9 SUMSY 2 820SD vSVtCU 82318 9$VKL28 20 1 8 
OINEMSIQM XLSVU2L8 9X{LSV2 82U 9XL5Y3 82S 8 9XLS\/<d> 82 S 8 
EQUIVALENCE (A YE 8 S 91 8 oG VE 8 1 0 U J 

DATA W/Ie 2732 A 9 O 0 C9o424>4L3 9 O 0 oo25A6AS90o 90 18 S 89 S 390 <>0/ 

REDE = REDFO 
A.MACH = AMACHD 
A I=CMPL X 8 O 0 O 9 I 0 O 8 
P I=3.,1A15927 
PITCOR. = 8 LSPC 
STAG = 90«0 - STG 
SIGMA= SIGM « PI /I 0 OO C 
BF.IA=SyRT (AMACHO* 2-lo 0) 

SCSK=REDF»AMACH/(BE TA«*2 8 
DEL=SCRK*AMACH 
AMU=REDF/ (BETAP*2J 
SP =PITCO^*CQSflSTAG*PI /I 8 O 0 O) «2o 0 
SN=P I TC0R»S5N(STAG'S‘PI /180«0)*2o 0 


SPS = S® 

SNS='SN>^BB TA 

DSTR = $QRT ( SPS>!"!'2- SiSlS*t!.2 ) 

SPSl = ABS8 SPS - SNS8 
IFISPSI oLTo oOOCCU GO TC 9991 
C ZERO OUT GEE 

NSTMS2 = 2*NSTNS 
DO 50 1 = 1,29 
DO 50 J = l,NSTNS2 
50 GEE8 I, J 8 = OoO 
PITAXS = CoO 
ANOAXS = Oo 
CALL ASYCON 
call AKP2 
RL 1=9 

S1 = SP S- SM S 
AA=SI/RL1 
xLsvu n=CoC 
DO ^541 JL = l99 
4541 XL SVK JL4- n=JL«<AA 
AA = SPS- SMS 


RL 2=19 

SI = 2o04-SN S“ SPS 
TEMP = S1/RL2 
XL=AA 

DD 4571 JL = l92Q 
XL SV28 JL 8 =XL 
XLSV38 JL)=XL^SNS-SPS 
4571 XL=XL^TEMP 

XL=SNS-»'2o O-SPS 
TEMP = ( SPS-SNS8 /RLl 
DO 458 JL=l9lO 
XLSV4( JU=XL 
458 XL=XL<HTEMP 

C ACCUMULATE PRESSURE VECTCRS INTO G-MATRIX 
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DO 100 NM = i(,NSTNS ! 

NTi'^ES = I ! 

IF (MM oGTo2i W TIMES =2 
DO 100 NMM =UNT5MES 

C OtFIME 

C ALPAMP - PITCHING AMP 

C D I SAMP - PLUNGIING AMP 

C GllSAMP - GLST AMP 

C GL -GUST InAVE NUMBER 

ALPAMP = OoC 
!F«MM oFQo 2J ALPAMP = loO 

OISAMP = OoO 
IFISJM oE3o U DISAMP = loO 

GUSAMP=Oo C 
GL —OoO 

IFIMMoGTo 2 oAMDo NMM oEQoU GUSAMP= REDF/2oO - ( NM-2 D *PI/ 4o0 
IF(MMoGTo 2 cANOo NMM oEQoU GL == (NM-2I) »PI/2oO 

IFIMMoGTo 2 oANOo NMM oEQo2J GUSAMP= - (REDF/2 oO «-U NM“2 J *PS/«oOH 
IF(NMoGTo 2 oANDo NMM oEQo2!) GL = - « NM-2 I *P 1/2 oO 
C 

A=( 1oOh^ai«redf*pi taks)*alpamp-ai*redf*dss amp 

B=-A I*REOF*ALPAMP 

IF( GL oEOo floOI GO TO 20^7 

A=GJSAMP 

B = 0o0 

2047 CONTINUE 
CALL SUBA 
C 

C FIND DELTA P « LONE R-UPPEBI : ' 

DO 60 NX= l» 10 
PRESU(NXJ = PRESl (NX} 

XUPCNXi = XLSVl (N»J 

IF(NX oEQ, lOGO TO 55 
NXX = NX + 20 
PRESL(NXX) = PRES4INX+1) 

XL0N{ NXX) = XLSV4S!NX4-n 
GO TO 610 

55 PRESUINXJ = (PRESUIO) * PRES2SlH/2oO 

XUPtlOJ = (XLSVIUC) ^ XLSV2(U)/2oO 

610 CONTINUE 
60 CONTINUE 

00 70 NX=lo2C 
NXX = NX F 10 
IFISJX oEQo 20)G0 TO 65 
PRESUINXXD = PRES2(NX^U 
XUP (NXXI = XLSV2INXFU 
PRESL (NX) - PRE S3JNX) 

XLOWI NX! = XLS\|3(NX) 

GO TO 710 

65PRESL(20) = (PRES3(2C) «• PRES4U))/2«,0 

XL0W(20)= JXLSV3420) ^ XLSV4dU!/2cO 
710 CONTINUE 
70 CONTINUE 

NM2 = NM If NSTNS 
DO 100 NMMM=l,29 
IF(NMMM oEQoU GO TO 80 

AVCDP =(PRESL(NMMM)*XLOto(NM.PM) - PRESU (NMMM) *XU P( NMMM ) ) 

I /( ( XLONINMMM) XUP(tVMMM))/2oO) 
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GO TO 85 

80 AVGDP sIPRESLU) - PRESUUH 
85 GEEdNMMMffWMI = REAUA\/GOPI ♦ GEEINMMMbNMJ 
GEE(M^l>*1MvNM2|= A I MAG CAVGOP^ GEES 
100 CONTHMUE 

C MDW DEFINE LARGE G MATRIX 

DG no I = lo25 
GVEUc n = OoO 
110 GVE< X, U = loO 

C FIND AVERAGE LCCATIONS PUT IN KLQH 

DO 120 1 = 2,25 

120 XLOWn ) =IXLOW«n *• «LPUH/2 oO 
DO 160 J=3o29 

CONST = U-2>*PI /2o 0 

00 160 1 =2,25 

GVEU,J) = SXNI CONST ♦ XLCbllH 
160 CONTINUE 

DO 165 1=2,25 

165 GYEI 1,2) = XLOtaU ) 

C SOLVE FOR G- INVERSE G IN GEE MATRgV 

C ISING =1 NON- SINGULAR IG YE ) 

C ISIMG =2 SECULAR IG VE ) 

C INDEX IS i«ORK STORAGE FOR RCUTSNE ENVERS 

CALL INVER SI 29, GVE ,25, GEE ,N«TNS2,0ETERM,I$ I NG, INDEX ) 
IF ( ISING oEQo 2J GO TO 9592 
C NOW DEFINE I-MATRIX INSTNS X 29) 

AYEI I, 1) = 2o0 
CON = loO 
AYEI 1, 2) =2o0 
NIN =27 

DO 288 J=1,N1N 

AYEIl,J^^2) = CON*6oO / J / PI 

288 CON = 1«0 “CON 

AYEI 2, 1) = 2o C 
AYE(2,2) = 2o66666667 

CCN = loO 

00 289 J=1,N1N 

AYEI2, J+2) = CON 06 /J/PI 

289 CON = “CON 

DO 290 I = 3,NSTNS 
DO 290 J= 2,28 
CON = OoO 

IFK J- 1 ) oEQo J) CCN = lo 0 
290 AYEI I,JfrU = CON 
00 291 J= 3,NSTNS 

291 AYEI J, I ) = WlJ-2) 

00 292 J=3,29 

292 AYEIJ, 2) = AYEI2 ,JJ 

C NOW MULTIPLY I * G-INVERSE ^ GIDELTA P“S) 

00 360 J = 1,NSTNS 

DO 360 K = 1,NSTNS 
NF = K«- NSTNS 

SUM I =OoO 
SUMR = OoC 
DO 350 E=l,29 

SUMR = AYEU,n * GEEU,t<) ^ SUMR 
SUMI = AVEUpE) ♦ GEEII,NF) SUM! 

350 CONTINUE 




360 Q«JoKi = - CMPLXJ StMR oSUME ) ♦ 0o5 
RETURN 

9991 WR ITEUBBOUTo30008 

3000 fOR'4ATJ 55H0*** USER FATAL MESSAGE “ AMG MODULE -SUBROUTINE AMGBIC/ 

I 39Xc4SHA«IAL MACH NUMBo IS EQUAL TO OR GREATER THAN ONE» ! 

GD TO 999S 

9992 WR ITE j IBBOU7,3C01 I 

3001 FORMAT! 84H0*O* USER FATAL MESSAGE - AMG MODULE - LARGE G-MATRIX IS 
I SINGULAR IN ROUTINE AMGBICo I 

9999 CALL MESACE !-61 »0 sOD 
RETURN 
END 


n o n r> o o 


OF POOR QUALii v 


SUB«aUT 8 NE SLBA 

UNSTEAOV FLOW ANAVS 8 S OF A SLPERSGNIC CASCADE 


LIFT AND MOMENT COEFICIENT 
COMMON /SVSIEM/SVSBUF 9IBBCLT 

CQMMON/BLKl/SCRK sSPSoSNSffDSTRjAI 9PI jDE LeS I GMA » BET A» RES 
COMMON /BLK 2 /BSYCON 

COMMON /BLK 3 / SBKDE I 9 SBKDE 2 jFA 9F4S 9AM4 9F5S 9F6S 9 AMATS T 9 SUM39 SOMA, 

1 AM5TT9AM69SUMSVI9 SUMSV 2 9SVKLI 9SVKL2oF5 ,F 5 T , AM 5 , AMSTo 

2 A, By ALP ,F I9AMI 9ALN9BLKAPM0BKOEL3 9FIS 9CI 9C2P9C2N9 

3 C29AMTEST9FT29BLAMI ,FT 3 ,AP 2 ,SbMl 9 SUM 2 ,F 2 9 BLAM 2 , FT 2 T , CIT 9 

A FT 3 T,F 2 P 9AM2P9SUMIT9SUM2T9CIP 9 C 1 N 9 BKOELl, BKOELa, 

5 BLKAPI9ARG9ARG29FT3TST9BC9BC2 ,BC 3 9BCA9BC5 9CAl,CA29CA39CAA9 

6 CL IF T,C MOMT9PRE SI ,PRE S 2 9PRES3 ,PRE SA 9 ORES A 9 FQA, FQB, FQ 7 
COMMDN/BLKA/I ,R 9 V ,A 1 9 B 1 ,C A ,C 5 ,G L 9 1 6 ? ! 7 9 JL 9 NL 9 R 1 9 RT 9 R 5 , S N, S P, «L, 

1 YI9AMU9 GAP9I0K9INX9NL2 9RLI 9RL2 9RQI 9RQ20XLI9 ALPl, ALP 2 , 

2 GAMNdGAMP 9INER 9IOUT 9REDF 9STAG 9STE P, AMACH 9 BETNN, BETNP, 

3 BKAP l9ALSVl9XLS\(29 SLSV 3 9)iLSVA 9ALPAMP 9 AMOAXS y 
A DISAMP 9 GUSAMP 9 PITAX 59 PI TCCR 

COMPLEX SBKOEl 9SBKOE2 

COMPLEX FA9FAS9 AMA9F5S9F6 S9AMATST9SUM3 9SUMA9 AM 5 TT, AM 6 

COMPLEX SUMSVl 9 SUMS \<2 9SVKLI ,SVKL 2 ,F 5 9 F 5 T 0 AMS 9 AM 5 T 
COMPLEX A I ,A 98 pB SYCON ,A LP yFl 9 AMI yALNpBLKAPMpBKOELS, FIS 9 Cl 9 C 2 P 9 C 2 N 
COMPLEX C 29AMTEST9FT2 9BLAIWI ,FT 3 ,AM 2 9SUMI 9SJM2 9F2, BLAM 2 , FT 2 T, C IT 9 
IFT3T9F2P9AM2P9SUMIT9SLM2T 
COMPLEX C IP 9CIN9BKDELI9BKDEL2 oBLKAPl ,A RG 9 ARG 2 , FT 3 TS 5 
COMPLEX BC 9BC29BC39BCA9BC5 9CAI9CA2 ,CA 3 pCAA 
COMPLEX CLIFT, CMQMT 

COMPLEX PRESI9PRES29PRES3 pPRESA ,QR£SA 
COMPLEX FQA9FQB9TI9T2 pTBpTA 

COMPLEX FQTpCEXPSpCEXPApCEXPSpCCNST 9CI A,C 2 A 

DIMENSION PRE SI « 2 U ,PRES 2 ( 2 U oPRES 3 « 2 l ) ,PR ESA (2 I ) , QRES AI 2 U 

DIMENSION SBK 0 FU 20 U 9 SBKOE 2 I 20 U 

DIMENSION SLMSYn 2 CU 9 SUMS V 2 1201 S 9 SVKLU 23 U 9 SVKL 2 ( 201 > 

DIMENSION XLSVU 2 U pXLSVZ 121 ) ,XLSV 3 (21 I pXLSVAIZl ) 9 IY(8 J 

Sl=SP S-SN S 

S 2 = SP SfOEL- SIGMA 

S 3 =SP S/(D STR«‘«' 2 J 

SA=SN S/DS 7 R 

SO = 2 oO- SP S<-SNS 

Tl=CEXP (-AI#SIGMA ) 

T 2 =CEXP (A I*SIGMAD 
A 1 = 2 <, 0 *PE /I SU 
Bl = ( S 2 }/( SU 
GAM = S 2 

ClP = GAM /0 STR- SCRK 
C 1 N = GAM/ 0 SIR 4 -SCRK 

ALP=GAM*S 3 ^SA*CSQRTIC IP) *C SCRTt CIN) 

BC=-B 1 /ALP*BSYC 0 N/SIN (PIABl/Al) 

T 3 =ALP-DEL 


ORIGINAL PAGE FS 

Fl=«ALP-AMUJ/<T3}*AE*SNS/(BE7A*«GAM-ALP*SPSn OUAUTY 

ARG2=f)£L 

CALL AKAPM(AftG2;BKDELU 
ARG=DEL-CL 

CALL AKAPMIARGoBKDEL2» 

CALL OLKAPM<ARG2veLKAPn 
INX = 0 

CALL DRKAPM«ALPoS WKsBLKAPWD 

F 1=F lOBKDEL l/BLKAPM* fl- ( T3 6 / d Tr3«-GL» ♦A^AI ♦BKOELZ/ BKDEL 1 
1*B*DLKAP UB/J T3) J 
FIS=F 1 
ML =10 
RL 1=(^L- I 

CEXP 3=CEXPJ-AI*T3/^RLl*Sn 
PRESH n = F IS 
NNL l=NL-l 
DO A53 JL =1 dNNLI 
PRESH JL+ 1)=PRE SI « JL!'«'CEXP3 
453 CONTINUE 

Fl = Fl*AI/ (T3)* (CeKP(-AI«‘(T3l*JSlU-loDI 
AN l=Fl/(AI«4T3))-FlS/(AI'M73H*«Sli *CEXPJ-AI*d 
lT3J«>d Sin 
AHTEST = 0. C 

FQB=BKDEL 1/IBE TA*BC5*CE XP U1 *<$21) /2oOJ 
l*(-A «A l*BKDEL2/B KDE LUB»B.L{<APl ) 

00 20 1=1,200 
R = I 

GAMP = 2oO*PM-R+S2 
GAMN=-2oO*PnR+S2 
CIP = «GAMP /OSTK l-SCRK 
C2P=( GAMP /OSTRnSCRK 

ALP=GAMP* S3 + S4'S'CSQBT«C1PI *CSGRT (C2P) 

T3=ALP-0EL 
IDX= I 

CALL 0RKAPM4ALPbIDX,BLKAPI«) 

Cl = ( ALP-AMUl/J 73) *AI « SNS/ (BE TA+ (GAM^* -ALP*S PS ) B *BKOELl/ 

H BLKAPMH' (-U3B/(734-GL)«A*AI ♦BKDEL2/ BKDEL H- 

2B«BLKAP H>-B/(T3H 
ClN=(GAMN/OSTR)-SCRK 
C2N=( GAMN/DS7R Bfr SCRK 
ALN = GAMN«!> S34-S4*C SORT (C I N) «C 5GRT (C2 N) 

T4=ALN-0EL 
IDX=- I 

CALL DRKAPM4ALN9IDX9B LKAPP) 

C2={ ALN-AMU)/J T4B*AI*SNS/dBE7A« (GAMK-ALN*S PS ) ) *BKOELl/ 

H BLKAPMB* «“ « 74 I / ( 74^GU*A«A! «BKDEL2/ BKDEL l-s- 

2BPBLKAP 14-8/(74)) 

Fl=F 14C l«AI/(T3)« (CEXP(-AI*(73)«(Sl ) I-Io 0)4-C2 
l«AI/( T4)» (CEXP(-AI«( 74)>*'(SU)-loO) 

AMi=AM nc 1/«A5*« 73) )♦«-( SI )»CEXP(-AI*(T3) 

!«■( SI ) )4-AI /« T3)*(CEXP ("AI* ( 73) «« SU ) -UO) ) 

24C2/J A i«( 74) )«■ (- ( SD+CEXPI-Al^-J 74) *(S1 Hfr 
3AI/( T4 )4(CEXP(-A1* (74)# ( SUS-lo 0) ) 

C2A=C2 
C lA =C I 
AA=S1/RLI 

CEXP 3=C EXP (-AI*T3*AA) 

CEXP4=CEXPd-AI#T4#AA ) 


ORfOfMAf FAGS FS 

T£MP = 2oO*Pr*R OF POOR QUALITY 

CE«P5=CEXPiAI*« sigma- SNS*DEU /Sl*AA{ 

CON Sr = 4,0*FQB/TEMP 
PRESU 1J=PRES1U)+Cl4-C2 
DO 454 JL=ljNNLl 
CQNST=CQNS7*CEXP5 
CIA=C 1A*CEXP3 
C2A=C2A*CEXP4 

PRESU JL+U=PR ESI « JL+ IH-C IA*C2A 
PRESU JL* n=PRE SI UL*n»-CCM£T*SIN«TEMP*JL/RaJ 
454 CONTINUE 

IF I CABSHAMl-ANTE STI /AMI) o L T» OoOOOS) GO TO 45 
AM TF ST=AM I 
20 CONTINUE 
GG TO 9992 

9992 WR ITEI IBBOUTp30O5) 

3005 FORMA T( 55H0««* USER FATAL MESSAGE - AMG MODULE -SUBROUTINE SUBA 
1 39X»26HAMl LOOP DID NCT CONVERGEo ) 

CALL MESAGEI-filpOpC) 

45 CONTINUE 
AA = S1/RL 1 

C EXP 3=C E XPIAI^ (SIGMA- SNS*DEL) /RLl) 

CON ST=FQB 

TEMP = 2oO«AA /( SPS- SNS) 

PRESU U = PRES1 U ) -FQB 
DO 4541 JL = lpNNH 
CONST=CON S7*CeXP3 

PRESU JL+l)aPRE SI j JL+l)-CONST^(loO-JL«TEMPJ 
4541 CONTINUE 
Y=0«0 
Y1 = SNS 
ARG=DEL-GL 

CALL ALAMDA (ARGpYpBLAPU 
CALL ALAMDA(ARG«Yl pBLAM I 
CALL AKAPPA (ARGtBKAPl ) 

FT2=A«A I« (OEL-GL-AMU) *BLAMl /BKAPl 
FT2T“A«AI *(0EL-GL-AMU»<‘BLAM2/8KAPl 
ARG=0EL 

CALL ALAMDAIARGpYpaLAMl) 

CALL ALAMDA(ARGpYl98LAM2) 

CALL AKAPPA(ARG»BKAPl ) 

GAM = S0RT(DEL«'<‘2-SCRK«*2) 

S5=SIN( SN S«GAM) 

S6=^C0 S( SN S*GAM) 

Cl=- loO/( BETA«GAM«S5) 

C1T=C l«(A I« SP S*T2*S6- SNS*0EL/GAM*T2 
1 *S5 )-BLAM2/BKAPl«DEL/GAM>!‘(£5 
2+GAM«SN S« S6)/(GAM4S5) 

C1=C 1* (ARG/GAM*SNS<'S5<-AI*SP£*T2 )-8LAMl/ 

IBKAP l«OEL /(GAM«S5)*( S5/GAM+ £NS^S6) 
FT3=-B*(BLAMl/BKAPi-MDEL-AML)«C 1) 

FT3T=-B«( BLAM2/DKAPU (DEL-AMU *011) 

IF(CL oEQo OoO) GO TC 50 

F2=FT2*(CEXP (ZoO^AIoGU-CEXFlAIOGL+lSU ) » / ( AI*GL) 

1+FT3«( SO)+B*AU‘(DEL-AMU)*aLAMl/8KAPl«(4o3-(Sl )«#2) 

2/2o0 

AM2=F T2<=( 2oC«CEXP (2o C«A I *GU / ( A I«GL ) -( SI ) / ( AI «GL ) *CEX P( GL » 

1AI»( SU (XCEXP (2c C'5‘AI«GL) -CEXP( AI < ( SI) «GL) )/GL**2) 




I 



24-FT3#( SU**2 } /2o C+BiAK-^tDE L-AMUD *BLA«l/ 8KAPI • 

•3<8oO-{ sn<‘*?>/3oC 

F2P=FT2T*TI*C6KP(AI*GL*SNS8 /«AI *GLi * 5C EXP <2 oO *A I ♦ 

I a l-CEXP( AI»GL* < sin n-F T3T*T1«« SOJ 
2*fl«Ajo (DEL-Af^U)* Tl*BLAM2/BKAPl*US0) »*2/ 

32o04-SP SO) ) 

AM2P=FT2T«Tl*«CEXPJAS*GL*SPSD /« AI *CU» (S3) 

I*CEXP( A I*GL*(S0) ) 4-CEKP(AI*Ga.*SPS) /JG(L**2) ♦dCEXP ■ 
2(AI*GL«‘( SC) )-l.O) H-F T3T»T1*«S0) *»2 
3/2<,O^>•B*AI«‘^0EL-AMG)*Tl*BLAM2/BKAPl *( (SO)»>^3 
^/3«0 <kSP S* ( S0)«*2/2o0) 

GG T3 55 
50 CONTIMUE 

F2=F T 2* ( SO N-FT3* ( 5Cn-8*AI * (DE L-AMU) *BLAM1/ 

IBKAP l«(4,C-(Sl)>*'*2) /2oO 

AM2=FT2«>( 4oO-(Sl)«!‘*2) /2 o Qo-F 73*( 0- « SI ) *«2 ) /2 «0 

UB^A I* (OE L-AMU)4«BLAMI /BKAP1#(8o 0- ( SI ) «*3 ) / 3 =0 
F2P=F T2T* TI*(S0)4-F 13T<‘Tl« «S0 
1 )+B<'A I*(DFL-ANMj)*n*BLAM2/BKAPl #« (SO 
2)«0 2/2o0fr SPS* ( SO) ) 

AM2P =FT2T*Tl» ( SO ) *«2 /2« 0«-F 73T#Tl 
1«<( SO)*4‘2/2oC<i-B<'A I* (DE L-AMU ^T1*BLAM2 
2/BKAP l«( ( SC)»*3/3oCfl-SPS'f (SO) >i‘«2/2o0) 

55 CONTINUE 
NL 2 = 20 
RL2=ML 2-1 
AA = SP S- SNS 

COMST=B»AlS'(OEL-AMU«BLAMl/eKAPl 
TEMP = S0/RL2 
C IA=A I*GL 

CEXP 3=CEXP(CIA«‘AA) 

CeXP4=CEXP (C IA«TE «P) 
no 455 JL = loNt2 
XL =AA +TEMP« ( JL-U 
PRES2( JL)=FT2#CEXP3frF 13+CCNST«'XL 
CEXP3=CEXP3«'CEXP4 
455 CONTINUE 
CALL SUBB0 
5030 RETURN 
END 


OKiOiL,/-,L .. .j 
OF PCX)R QUMLifY 


I 

I 

I 




OF PCX)R QUALHY 


SUB<<QUTINE SUB3B 

COM'ICN /SVSTFEM/SVSBUFaBBCL? 

COMVION/BLKI/SCRK5 SPSoSNSoDSVRoAI ffPI 9OE L 9S I GMAo BET A® RES 
C0MMQivj/8LK2/BSVC0N 

CBM'IOiN/Bi. K3/ SBKDEl 9 SBKDE2 9?^ «F^S 9AW<^9F5S 9F6S 9 AM4TST 9 SUM3e SUM4e 

1 AM5TT9AM6 9SUMSV1 9 SUPS V2 9 SVKil 9SVKI29F5 9F5T 9 AM§9 AM5T9 

2 A9B9ALP 9F I9AMI 9ALN98LKAPP9BKOEL3 9FIS9CI 9C2P9C2N9 

3 C29 AMTE S79FT29BLAM1 9F T3 9AP2 9SUMI 0 SUM2 9F2 9 8LAM29 FT 2T 9 CIT 9 

^ FT3T9F2P9AM2P9 SUWlToSUM2T9ClP 9CIN9 BKDELlo BKOEL29 

5 bLKAPl9ARG9ARG29FI37ST9BC9BC2 ,BC3 9BC4 9 8C5 9 CAl 9 CA2 , CASo CA«9 

6 CL IFT9CMOMT9PRE SI 9PRES29PRES3 oPRES49QRES« 9FQA0FQB9FQ7 
C0'1^0N/BLKA/I 9« 9 V 9AI 9BI 9C<f9C5 9G L9I6 9R 9 JL 9 NL9R J 0 RT 9 R59 SN9 SP9 K«-9 

1 YL9AMU9 GAP9iO)(9l NX9M2 9RU 9RL29R€l9RQ29XLl9 ALPI9 ALP29 

2 GA “IN 9 GAMP 9 INER 9SCUT9REDF 9STAG 9STE P 9A MACH 9 BET NN9 BETNP9 

3 BKAP 19XISV19XLS\J2 9 XLSV3 9)<i.SW^ 9ALP AMP «AMOAXS 9 
A DISAMP9GUSAMP9PH TAXSjPI IfCCR 

COMPLEX SBKDEl 9SBKDE2 

COMPLEX F^tF^Sf AM49F5S9F6S9AM4^iT9SUM39SUM<>9AM5TT9AM6 

COMPLEX SUMSVI9SUMSV2 9SVKLl,SVKL2 9p^ 9F5T 9AMS9 AM5 T 
complex a I jAjB 98 SVC on 9ALP 9FI 9AMI 9AI N 9BLKAPM9BKOEL39FIS 9CI9C2P9C2N 
v^OMPLEX C 29AMTEST 9FT2 9BLAPI 9FT3 9AM2 9SUMI ,SUM2 9F29BLAM29 FT2T9CIT9 
IFT3T,F2P 9AM2P 9 SUMil9SLM2T 

COMPLEX C IP9CIN9BKDELI 9BKOEL2 dBLKAPI 0ARG9ARG2 pFTSTST 
COMPLEX aC9BC29BC39BC«9BC59CAl9CA2 9CA3 jCA^ 

COMPLEX CLIFT9CMOP7 

COMPLEX PRESI9PRE S29PRE S 3 9PPES4 9 QRES-‘» 9 CEXP-i^C 

COMPLEX FQA 9 FQB 9 TI bT2 9 T 39 T<» 9 CEXP 2 A 9 CEXP 2 B 9 CEXP 2 C 9 CEXP 4 A 9 CEXP4B 
COMPLEX FOTbCIAbCSAoC^AvCGNST 9 CEXP 3 tCEXP^ bCEK P3 Af CEXP3Bo C6XP3C 
DIMENSION PRE SlI 2U 9 PRES 2 I21)9PRES3 (2U 9 PRES4 ( 2 1 ) 9 QRES 4J 2 1 ) 
DIMENSION SBKDEU2CI) 9 SBKDE 2 12011 

DIMENSION SUMSV112CU 9SUMSV21201) 9SVKLU2OII 9SVKL21I 20 1 1 

DIMENSION XLS VU2U 9 XLSV2 (211) 9XLSV3 121J 9XLSV4 (2 U 9 lY (8 J 

Sl = 2oOfl-SN S-SPS 

n=CEXP (-AI^SIGMA J 

T2=CEXP1 A I*SIGMA I 

TEMP = Sl/RL2 

C IA=A K'GL 

C0NST=B«'A (D£ L-AMLl*BLAM2/eKAPl 
CEXP 3=CEXP (C1A«SPSJ 
CEXP4=CeXPlClA*TEMPI 
XL = SP S 

00 456 JL =l9NL2 

PRES3UL ) = (FT2T*CEKP34-FT3T+CCNST»XL»«T1 
CEXP 3=CEXP 3»CEXP4 
XL =XL frTEMP 
456 CONTINUE 

FT3TST=0o 0 

FT2=0o0 

FT3=OoO 

FT2T=0o0 

FT3T=0o0 

F9A=BKUEL 1/1BC*BE TAJ » (A*AII ♦BKDE L2 /BKDE LI -6*BLKAP1 > 
l^CEXPl-A I«1DEL«SPS-SIGMAJ /2<,0J 


DO 60 I=lj,5C 
RT=OoO 
R = ff- I 

R i=<- loO!*'S' <!-U 

ALP = SQR TTfl i!R*PI /SN SCRK>»*2) 

AtN=-ALP 


ORiGCrJAL 

OF POOR QUALITY 


CALL AKAPMULP pBKDELSJ 
T3=ALP-DEL 
SVKL U H )>BKDEL3 
CFJ loEQol ) RT = lo 0 

SU«11»< ALP-AWU /« T3i)*{[Rl-C£)tP U8 »flT3 J *S PS i ♦T? 

I )/|RETA*< loC*RTH»RI / « SN $♦ ALP> *BKDELi/ BKDEL3*II A*AI «BK0EL2/ 
2BKDEL I*! T2J/l[T34-GLJ-B»BL(<APl-8/(iT3l } 

SUMIT = ( ALP-AMUJ/IT3>* «1 oO-CE»P< AI »tT3i ♦SPSJ ♦T2 
1'0:M »/l BEIA*! loOe-RTH D*Rn /5SWS*ALP5 *BK0Ey./BK0EL3*J A*AX » 

2BKDEL 2/BKOELH I T3i 1 3«CU -8>J>BLKAP1 -B/ «T31) 5 
SUMSVU n = dALP-AMUl)/« T3>* UoO-CCOSd « T3 » *S PS <»-S IGMA 
UR*P !I n/l BETA* {UC4-RTi*SNS#ALP) »BK0£Ll/BKDEL3*CEKPd -2oO»AI*J ALP 
2-OEL i J*lA*BK0EL2/BK0ELl»d 73i /IT3*GU«-B*AZ *6LKAPl 
3*fl*A!/d T3H 

Fr2 = SUMl*AI /I T3P* «CE «P<-2oO«A!* dT3D D -CEXP d -Afl ♦« S PS -SMS } 

1#( T3U JM-F T2 

FT3=SUMl«‘ {2o0*AI*CEXPd-2»0*AK*4T3n / 4¥3 i -AI SPS-SNS 1/ 
l( ^{♦CEXP l-AI* t T3>*< SPS-SNSJ UCEWP(-2cO*AI *(T3H/ 

2( ' T3J**2J“CEXP (-AI*( T3B*«SPS-SNS> } / d 4T3 P **2 ) } *FT3 
:-T2T=SUMi?*n*CEXP«-AI*dT35 *SPSJ *A!/ 413 5 
1*ICEXP4-A 1* 4T3 5* I Sin -l«05*FT2T 
FT3T = SUMIT*T1*CEXP4«AI*« T35 *SPS) *4 4SU 
l*AI/4 T35*CEXP«-AI*4T3 5*4Sl)5*lo 0/44T35 
2**2)*{CEXP4-AI*4T35*4 515 5-lo05 5 *FnT 
CALL AKAPI«I4ALN bBKDEL3) 

TA=ALN-0EL 


SVKL 21 I ) =BKDEL3 

SJM2 = <ALN-AMU5 /( 5 * 4R4 “CE XP 4 AI *( TA 5 »S PS 5 *T2 

15/JBETA*4 loC*RT) 5 *RJ / 4 SM S*A L^5 * BKDE LI/ BKDEL3 * ( A*A I *BK0EL2/ 
2BKDEL 1*4 TA5/4 T4*GL5-B*BLKAP1-B/ 4TA5 5 
SUM2T=(ALN-Al^U)/4 TAP* 41 » 0-CEXP4 AI ♦( TAP *SPSP *T2 
1*R n/(8E TA»4 UO+RTi P*RI /4 SN5*ALI\!P *BK0EILl/ BK0EL3 *( A*A1* 

2BKDEL 2/BKOELl* 4 TAJ / 4 T4+GL 5 -B*BL KAPl -B/ 4TAP J 
SUMSV24 I P = 4ALN-AMUP /4 TAP * 4loO-CCOS4 4Tdf P*SPS*S IGMA 
1-««PI P )/4BETA*(loC+R7P*SNS*ALNP *BKDEL1 /BKDEL3*CEX P4 -2 eO*AI*4 T A 
PP )*l A*BKDEL2/8KDELl* 4 TAJ / 4TAfl-GL)«- B*AI *BLKAPl 
3*fl*AI/4 TAJP 

FT2=FT2«-SUM2*A1 /« TAP * 4CE XP {-2oO *AK * I TA J P -CEX P 4 “A I *4 S PS 
1-SNSP*4 TAP P P 

FT2T=SUM2T*Tl*CEXP (-A I* 4 TAP * SPS J *Ai / 4TA P 
1*4 CEXP (-A I* 4 TAP* I SIP P-1 .0P + FT2T 
FT3=F T3-»-SbM2*4 2oO«AI *CEXP4-2oO*AI *4 TAP P/ 4TA P -AI *(SPS 
l-SNSP/4 TAP«CEXP4-AI* 4 TAJ*4 SPS-SNSP ) fl-CEXP 4 -2 oO *A I » 

24 TAP P/4 4 TAP**2P-CEXP4-AI *4 TAP *4 SPS-SWS5 P/ 

34 4 TAP**2P ) 

FT3T=FT3T*St)M2T*Tl*CEXP4-AI*4TAP*SPSJ*4 4Sl 
lP*AI/4 TAP*CEXP 4-AI*fl TAP*4SU J*loO/ 

2( ( TAP**2P* 4CEXP4-A1* 4 TAP * 4 SU P-lo OP P 
I 7=1 

AA=SP S- SN S 
TEMP = S1/RL2 
TEMP2=R*P I /SNS 


C0NSY = -;»o0/Pi*f=gA , 

TE«IP3=R4-RT nilAUTtf 

C3A=-A][*T2 Of POOR QO 

C4A=“AII*TA 
CIA=A j[*OEL 
CEXP3A=CEKP(C3A*AA!) 

CEXP 3B<EXP(C3AOSPS! 

CEXP 3C =CE XP([C3A«TEMP) 

CEXP4A =CEXPiCAA*AAD 
CEXP <hB=CE XP JC«A* SPSJ 
C EXP =CE XP (C 4A* TE MP J 
CEXP 2A =C£ XP<C1A*AA8 
CEXP 2B=CE XP«CIA*SPS> 

CEXP 2C =CE XP <C lA* TE PPl 
XL l=AA 

00 457 JL = l9NL2 

PPES2( JL ) =SUMl*CE XP3A«-SUM2«CEXP4A*PRES2 4 JL» 

PKES2< JL 5=PRES2( JLII«CCNST*CEXP2 A^RI/TEMP3>fS IN4TE“iP?*4XLl=SPSJ I 
XL 2= XL H^SNS 

PRES3( JL ) =4 SLMlT«CEXP3B<i- SLP2 Y*C EXP4 B} m«-PRES3 4 JL 5 
PRES3 4 JLJ =PKES3 4 JLKCCNST4CEXP2 B/TEMPB’I'SI N{TEWP2*4XL2-SPS H^T I 
XL 1=:XL lo-TEMP 
CEXP 3A =CE XP3A4CE XP3C 
CEXP4A=CE XP4A*CEXP4C 
CEXP 2A =CE XP 2A*CE XP2C 
CEXP 3B =CE XP 3B«CE XP3C 
CEXP 4b =CE XP 48«CE XP4C 
CEXP 2B=CE XP 2B<‘CEXP2C 
45 7 COMTRNUE 

IF (CA8S4 fFT3-FY34Sn /FT3K LIo O 0 OOO 6 R G0TC65 
FT3TST=FT3 
60 CONTINUE 
03 TO 9994 
65 CONTINUE 
FT3TST=FT 3 
F2=F2+FT2 
AM2=AM2+F T3 
F2P=F 2P «F T2T 
AM2P=AM2P «FT3T 
AA = SP S- SN S 
AA l=SP S«-SNS 
AA2 = SPS<-2oCR^ SNS 
TF»4P = S1/RL2 
XL =AA 

C 1A=A i«OEL 
CEXP3=CtXP4ClA*AA ) 

CEXP 3C =CE XP (ClA^'TEPP) 

CEXP4=CexP4ClA*SPS} 

CONST=2oO»FQA 
CEXP 2A = Tl*C0NST 
DO 4571 JL = l®NL2 
STEP = tl»0 

IF4XL oGEoAAUSTEP=l«0 

PRES24 JL ) =PRES2 4 JLJ4-CCNST*CEXP3*4 4XL-S PS) /S NS-2 oO *ST EP ) 

XL2=XL<-SNS 

STEP = OoO 

IF4 XL 2oGE oAA2) STEP=lo C 

PRES3 4 JL ) =PRE S3 U L) -C E XP2A4-CE XP4* (1 o 0-* 1XL2 -S PS ) / S NS ^>•2o0 *5 T EP ) 




CEXP3=CEXP3«CEXP3C 
CEXP4=CEXP ««CEXP3C 
XL =XL«TEMP 
^5 71 COf^TINUE 

GA^^ = SP S*DEL- SIGMA 
C IP = IGAM/0STR}-SCRK 
C2P = (GAM/0SYR)«-SCRK 
ALP=GAM*SPS/«O STR**2J”SJ\iS/OSTR*CSQRTIClPP fCS QRT J.C2PS 
T3=ALP-D£L 

F4=CEXP« A I^IALP^SPS-GAMJ J * jAiP*SPS“GAMi/ I 1 AiP*OST R**2“GAM*SPS I» 
l»( T3H 

CAU AKAPMI ALP 9BK0EL3J 
SBKOEU ID =8KO£L3 
SBK0E2J U=0oC 
CALL AKAPPA (DELffBKAPn 
CARG=DEL-GL 

CALL AKAPPAICARG tCKAPU 

FA=f 4«BKDeL3/«BKOELl*BKAPU« JA'!« «BKDEQ /BKDEL2 T 3 D/ « T 3 
UGL J«(DEL-CL-AMU»>fCEXPI2oO*AS*GU »8KAPl/CKAPl KB*AI ♦{ Io0-2o0 
P^AKl UEL-AMUI- lOEL-AMLi^RESJ-B^AH^lOEL-AMUI ♦1BLKAPI-Io0/([T3H 
3) 

F5S=8*AI /«BKDELl*BKAPU*(loC-2o 0*AI ♦IOEL-AMUi-(DEL-AMLJil«RES- 
l(DEL-AMU)«‘eLKAPU 

F6S='A/(BKDELI*BKAP1J *dBKOEU /BXDEL2 *«0£L-GI -AMJ !) *CEX P« 2oO*An*GL H 
1*6KAP l/CKAPlt 
FAS=FA 

FQ7=BC*(F6S«F5Si 

TFMP=( SPS-SNS) /RLl 

TEMP2=2oO-SPS 

CON ST=-T1*FAS 

CU=-A I*T3 

CEXP 3A=CE XP iC lA* SNS) 

CEXP 3fl=CE XPdC lA* TEMP) 

00 458 JL=1»NL 
PRES4ULJ =C0NST*CEXP3A 
CEXP 3A =CE XP 3A*CE XP3B 
458 CONTINUE 

Cl^CEXPd- AI«( TS)*" SPS) 

C2=CEXP(-AI*J T3)* SNS) 

F4=F4*AI«‘ Tl/I T3)« dCl-C2) 

AM4=F4SX>T l>f (lAI^SP S*C1 / d T3I-AI *SNS*C2/ dT3 5 
IfrdCl-C 2I/d( T3)**2) )*F4S«AI»d2oO-SPSJ *T1/ 

2(T3)*dCl-C2) 

CALL SUBC 
RETURN 

9*^94 WR ITEd IBBOUTff 3015) 

3015 FORMAT! 55H0«#« USER FATAL MESSAGE - AMG MODULE -SUBROUTINE SUBC / 
I 39Xj2fcHAM4 LOOP DIO NCT CONVERGE* ) 

CALL MESAGE d-61v0tC) 

RETURN 

END 


mmAL PAGE ts 
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OF POOR QUALSTY 


SUBROUTINE SUBC 

COM'IDN /SYSTEM/SYSBUF ffIBBCU 

CQf^'ION/BLKWSCRKs SPSb SNSffOSTRoAI »PI ®DEL oS I GMfi® B^T Aj RES 
COMMON/BCK2/BSVCON 

COM'flON /BL K3/ SBKOEl 9 SBKOE2 vF^ oF<>S ffAM4 jF5S oF6S j AM^TST 9SUM3,SUM4» 

1 AM5TTi,AM6ff SUMSYl oSU^SV2 oS^RLl ^SVKLZoFS «F5T ® AM5 p AM5T p 

2 ApBpALP pFlpAMl pALNpBLKAP|» pBKDEt3 pFlS oCl pC2PpC2Np 

3 C2pAMTE STpFT2pB(LAMl pF T3 pAI»2 pSUMl p SUN2 pF2 p BLAM2p FT 2T p CIT p 

4 FT3TpF2PpAM2PpSUMlToSUM2TpClPpClNp BKDELlp BKOEL2p 

5 BLKAPloARGpARG2pFT3TSTpBCpflC2 pBC3 pBC4 p BC5 pC A1 p CA2 p CA3p CA4p 

6 CL IFTpCMOMTpPRE SlpPRE S2 pPRES3 pPRE S4 p QRES4 » FQAp FQBp FQ7 
CJM'^0N/BLK4/I pR p Y pAl pBl pC4 pC5 pG Lp 1 6 p 17 p J)IL p NLp RI p RT p R5p SNp SPp XLp 

1 YlpAMUp GAWpIO«pU«pNL2 pRLl pRL2pRGlpRQ2p)(LlpALPlp ALP2p 

2 GAMMpGAMP pINER p lOUT pREOF p STAG pSTE PpAMACH p BET NNp BETNPp 

3 BKAP Ip «L SVlpXLSY2p KLSV3 p»LSY 4 pA LP AMP pAMOAXS p 

4 UlSAMPpGUSAMPpPITAXSoPI TCCR 
COMPLEX SBKDE I pSBKDE2 

COMPLEX F4pF4Sp AM4 pF5 S pF6 Sp AM4TST pSUM3 pSUM 4 p AM5T T , AM6 

COMPLEX SUM SYl p SUMS V2 pSVKLI pSVRt2 pF 5 pF5T p AMS p AM5T 
COMPLEX A I pApB pBSVCONoALP pFl pAMl pALNpBLKAPMpBKOELBp FlS p Clp C2Pp C2N 
COMPLEX C 2pA«TEST pF T2 pBLAMl pF 73 pAM2 pSUMl pSU M2 pF2 p BLAM2p FT2TpClTp 
IFT3T»F2P ,AM2PpSUMlTpSLM2T 
COMPLEX C lPpClNpBKDEILleBXDEL2pBLKAPl pARCpARG2p 
lFT3TSTpC lA ,C2A ,C3ApCE XPl pCEXP2pCEXP3 pCEXPl ApCEXP2Ap CEXP3Ap CONST 
COMPLEX BC pBC2 pBC 3 pBC 4 pBC 5 pC Ai ®CA2 pCA3 pCA4 
COMPLEX CLIFT, CMOM7pC4ApC6XF4pC£XP5 pCEXP4ApCEXP5A 
COMPLEX PKE SlpPRE S2 pPRE S3 p PRE S4 pQRE S4 
COMPLEX FQA ,FQBpUpT2 pT3 
COMPLEX FQ7 

DIMENSION PRESK2U pPBES2 «2U pPRES3 «21 ) pPR ES4 «2 U p QRES41 2 H 
DIMENSION SBKDEU20U pSBK0E2I20l) 

DIMENSION SLMSVU201J pSUMSY2I20U pSVKLUZOU pSVKL2( 20 U 

0IM6N SION XLSVU2U pXLSV2 (2U pXLSV3 (2U pXLSV4I2U p lYIB I 

AM4TST = 0„ C 

S1 = SP S»OEi- SIGMA 

S2=SP S/(D STR**2» 

S3 = SN 5/DSTR 
S4=SPS4-SN S 
T3=C£XPI-AI$SIGMA I 
DO 70 1 = 1,200 
R = I 

GAMP=2oO>»‘PI»R4-Sl 

GAMN=-2oO*P I*R*Sl 

C 1P=IGAMP /OSTR I-SCRK 

C2P = 4GAMP /DSTR KSCRK 

ALP=GAMP* S2-S3*CSQRT(C1PJ*CSGRTIC2PJ 

Tl=ALP-DEL 

CALL AKAPMI ALP pBKD£L38 
SBKDE U N-1)=8K0EL3 

SUMl=CeXP «AI#IALP*SPS-GA«PH*4ALP*SPS-GAMPJ *BK0EL3/ ( ( ALP>5‘DSTR«*2 
l-GAMP'S'SPS >^7U*«F6S«'Tl/i TU-GLHFSS 
2frB*AI /I BKDELIOBKAPU^ tDEL-APlil/ lALP-OELJ) 

CIN =IGAMN/OSTR HSCRK 


C 2M =< GA MN /O S TR II ❖ sc R K ORIGflWAl' PAGE IS 

ALM=GAMN*S2-S3*CSQR7«CIN»*CSGRTJC2NB OF POOP QUALITY 
T2=ALN-[)EL 

CALL AKAPM«ALN»BK0EL3} 

SBKOE2i S4-U»0KOEi3 

SUM2=C£XP JAI*JALN**'SPS-GAIWM)J*(IAa.N*SPS-GAMNB ♦BKDEL3/ U ALIM*DSTR«*2 
l>-GAMiyj*SPSB*72J>«'(!F6S* 4 72D /« ?2^GU«>F5S 
2«B«AI /4BKDELl*BKAPU«'4DEL-APtB/ 4T2J t 
C1P=CEXP j~AI*4 TU*SPSJ 
C2P=CEXP(-AI*OU*SNSB 
CIN=CEXP4-AI*( 728PSPSI 
C2N=CEXP4“AI1'4 72}*SNSJ 

F<;>=F4«-SUM l*T3*AI /4 n J ♦4CIP-C2PB «-SUM2*T3 
1«>A l/{ F2J* jC 1N-C2NB 

AM^sAM^^-SUM 1*T3* 4AE*SPS«'CIP/4TU-AJ ♦SNS*C2 P/ 

IE TU<HoO/4 4 Tl)9‘*2t® «C1P-C2P1I^AJ 4<42oO-S PSB/flTU * 

2(C 1P-C2PJ )4-SUM2«T3*4AE*SPS^C1M/ 4T2i -AI ♦SNS*C2N/ 

3i T2)4-I oO/( 4 ?2)>f*2»*(ClN-C2MB<-AE *42 oO-SPS» / 4T2 B ♦ 

^(C IN-C 2N 1 ) 

I6=H>-1 

TEMP=( SPS-SNS) /RLl 

C1A=-AE*TI 

C2A=-A I*T2 

C3A=A I*OEL 

CEX» 1=CEXP4CIA"^SNSB 

CEXP 2=CEXP (C2AOSNSB 

CEXP3=CEXP<C3A*SNSi) 

CEXP IA=CE XP 4C IA*TEMPJ 
CEXP 2A =CE XP4C2A« TEMPI 
C E XP 3A =CE XP 4C 3A* TE M P B 
CON ST=FQ7/42oO*PI I 
TEMP2=2.0*PI*R/S<> 

C^A!=-A I*S 1 

CEXP4=CEXP^CAA♦42»C«S^S/S«<^Co5^ ) 

CEXP 5=CEXP 4C4A»0. 51 
CEXP4A=CEXP (C4A® TEMP/S4J 
CEXP5A=CE XP4C4A* TE MP/ 4 SP S(V SH 
XL = SM S 

DO JL = 1,NL 

PRES4( JL } sPRES4 4JL)-T3'f «£LMl«CEXPi«-SUM2«CEXP2 

1 ♦C3NST«CEXP3’MCEXP4<‘5IN4 7EPP2* 4SNS<-XLJ) /R 

2 -CEXP5*S4N{T£MP2«‘(SP5<>-XLn/RH 
XL=XL >TEMP 

CEXP 1=CEXP1*CEXPIA 
CEXP2=CEXP2»CEXP2A 
CEXP 3=CEXP 3#CE XP3A 
CEXP4=CEXP4^CEXP4A 
CEXP 5=CEXP5«>CEXP5A 
459 CONTINUE 

IF 4C4BS4 4AM4-AM41TSTB /AM4t « LTo OoOOObI GO TO 75 
A?^4TST=AM4 
70 CONTINUE 
GO T3 9994 
75 CONTINUE 

TEMP=4 SPS-SNS) /RLl 
TEMP 1 = 2 oO«SNS/S4<kCo5 
TEMP 2=Oo5-4 SPS+SNS) /S4 
C1A=A I40EL 






ORieWAl PASE IS 
OF POOR QUALITY 


.5H 


C2A=-AI*Sl 
C3A=-C 2A 

CEXP 1=CE«P(C1A«>SNSJ 
CEXP2=C6KP«C2A® TEMPn 
CEXP3=CEXP<C3A*TE MP2 I 
CeXP lA =CEXPIClA*irEPPI 
C EXP 2A =C E XP iC 2A» TE «P / } 

CONST = T3*FQ7/2oC 
XL = SN S 

DO 4596 JL = leha 

PKES4( JL » =PRES4« JU-CCNS7«CESPl»«CEKP2'* 

1 (( S^IS^>■XL l/S4-0o 5)-CEXP3*USPS*XL} /S4-1, 

XL =XL+TEMP 
CEX<* 1=C6XP l*CE XPIA 
CeXP2=CEXP2*CE XP2A 
CEXP3=CEXP 3*CEXP2A 
4596 CONTINUE 
CALL SUBD 
RETURN 

tvR ITE« I8BOLTt>3Cl5l 

FOR^ATI 55H0^«* USER FATAL MESSAGE - AMG MODULE -SUBROUTINE SUBC / 
1 39X, 26HAM4 LOOP DID NCT CONVERGEo J 

CALL MESAGE {-ElsOsOt 
RETURN 
END 


9994 

3015 
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SUBROUTINE SU80 

CO'HON /SVSTEM/SVSBUF pi BBCLT 

COM»^aN/BLKl/SCRKpSPSpSNSpDSTRpA5 pPI pOELpSlIGMAoBgTAp RES 
C0M»40N/BLK2/BSVC0N 

C0M'^0N/BLK3/ SBKOEl pSBK 0E2 pF4 oF 4 S pAM pF5S pF6S p AI%TS Tp SUMBo SUM 4p 

1 A^lSTTpAMfcpSUMSVl pSUf“S\^2 pS^KU pSVKL2 pF5 pF5T p AMS p AM5T p 

2 ApBpALP pFlpAMlpAILNpBLKAPPpaKOELS pFlS pCl pC2PpC2Np 

3 C2pAMTE STpF T2 pBLAM 1 pF 73 pAP2 pSUMl p SUN2 pF2 p B1AM2 p FT 27 p CiT p 

^ FT3TpF2PpAM2PpSLMlTpSUM2TpClPpaNp BKOELlp BKO£L2p 

5 BLKAP lpARGpARG2pF T3TSTpBC pBC2 p6C3 pBC<^ p BC5 pCAi p CA2 p CA3p CA4p 

6 CL IFTpCMOMTpPRE SI pPRE S2 p PRESS pPRES^ pQRES4 , FQAp FQBp FQ 7 
CCM»^aN/BLK4/I pRpVpAl pBl pC«pC5 pGLpI6 pI7 pJLpNLpRRpRTpRSpSNpSPpXLp 

1 YlpAMUp GAI»pID«pIKXpNL2 pRLl pRL2oRGlpRQ2pKLlp ALPlp ALP2 p 

2 GAMNpGAMPpINER p ICU7 pREDF pSTAG pSTE PpAMACHp BETNNp BETNPp 

3 BKAP IpXLSVlp XLSV2p «LSV3 e»LSV<> pALPAMPpAMOAXS p 
^ OISAMPpGUSAMPpPI TAXSpPI TCCR 

CJMPLtX saKDEl,SBKDE2 

CJMPLEX F4pF4Sp AM4 pF 5 S pF6 Sp AM4TST p SUM3 pSU M4 p AM5T T p AM6 

COMPLEX SUMSVl pSUMSW 2 p S VK LI p S VRL 2 pF 5 pF 5T p AMS p AM5T 

COMPLEX A I pApB pB SVCONpALPpFl pAMl pALNpBILKAPMpBKOEL3p FIS p Clp C2P» C2N - 
COMPLEX C2pAMTESTpFT2 pBLAPl pF73 pAM 2 pSUMi pSUM2 p F 2 p Bi AM2p FT 2Tp C IT p - 
lFT3TpF2P,AM2P ( SUM17,SLM2T 

COMPLEX C IP pClNpBKOELlpBKDEL2pBLKAPl pARGoARG 2 pFT 3TST 
COMPLEX BCpQC2pBC3pBC4pBC5pCAlpCA2 pCA 3 pCA4 
COMPLEX CLIFTpCMOMT 

COMPLE X PRE SI pPRE S2pPRE S3 pPRES4 pQRES4 

COMPLEX FQA pFQBpSSpTI pT2 p73 pT4pC0NST pCONST2 pC0NST3p CONST 4 
COMPLEX FQ7pCONST5pCON3T6pCl A»C2ApCEXPl pCEXP2 p CEX PI Ap CEXP2A 
D HEN SION PRESU21) pPRE S2 «21> pPRES3 121 I pPRES4 12 1 1 p QRES45 2 U 
DIMENSION SBK&EI (201 ) pSBKDE2 (2011 

DIMENSION SUMSVl (2Cn pSUMS \>2 (201) pSVKLl (20n pSVKL2( 20U 

DIMENSION XL SVl (21 ) pXlSV2 (2 U pXLSV3 (2U pXLSV4(21I p IY(8 5 

AM6=0o0 

F5=OoO 

AM5=0„0 

SUSP SfrSN S 

S2 = SIGMA- SP S^OEL 

S3=SP S/(D STR*«‘2J 

S4=SN S/DSTR 

S5=0EL*SNS«SIGMA 

SS=CEXP(-AI*SIGMA I 

DO 80 IOU7 = lp200 

IF( lOUT «GT„ I 7) GO TO 99<37 

P5=I3UT-l 

RU 1 = S0RT( IR 5«P r / SN Si* <‘2 SCRK^*? ) 

R02=>RQ 1 

C4=(RQ 1*S1<-S2) /(2oC*Pn 

l(2,0'i'Sin/(2o0*PI«AI ) 

BC3=BC2*SVKLi( lOUT) /SVKL2 (I CUT) 

aC4=BC / (2oO*SVKil U0U7H «CEXP (AI «(-S2M'(SNS-S PS )/ 

1 ( 2oO* SU ) /(2o C>fPUAI ) 










BC5=BC^*SVK(LlUOLn/S\)KL2 (!CITJ PAGE 13 

F5T=0«0 OP POOR QUALITY 

A«5T=0o0 

AM5TT=0»0 

00 461 JL = 1»NL 

0RES4( JL ) =CoO 

461 CUNTSMUE 

on 65 lNER~lo200 

R = IM£R-1 

GAMP=2oO*PI*R-S2 

GAMM=-2oO*PS*R-S2 

C IP =( GAMP /O STR H- SCRK 

C2P=4GAMP /DSTR HSCRK 

ALP=GAMP4 S3-S4«CS0RHCIP}«CSGRT«C2P) 

BKDEL 3 = SBKDEU INERl) 

INIER oLEo 16 8 GO TO 200 
CALL AKAPM<ALP9BKDEL38 
SHKOE H INCR l=BKDEL3 

200 continue 

T1=AL P*SP S-GAMP 
T 2= A L P ♦ D S TR « ♦ 2-G A MPO S P S 

SUM1 = SUMSVUI0UT) *CE XPIAI *118 OB KDEL3«Tl/ ( 

IT2* SVKU I IGUT8* jALP-RQl M 
SUM 3=SUMSV2(IOL?8 »C£ «P«AI »TU »BRDEL3*n/ { 

1T2«SVKL2I iatT}4«ULP-«G2 8 } 

IE4 INER aEQo U GO TO 90 

CIN=JGAMN/0STR8“SCRK 

C2Na( GAMN/DSTR 10- SCRK 

ALN = GAMN*S3-S4*CSQRT{C1N8*CSGRT«C2NJ 

BKDEL 3 = SBKDE2< INERJ 

in INER ,LEo 16) GC TO 210 

CALL AKAPMIALN^BKOELB) 

SHKDE 2( INER )=BKDE L3 

210 CONTINUE 

Tl=ALN‘i‘SP S-GAMN 
T2=ALN«DSTRP*2-GAMN«SPS 

SUM2 = SUMSVl(iaUTl*CE KP4AI »TU#a KOE La’s'll/ i 
2T2«SVKLU I0LT)*IALN-RG1 » ) 

SUM4 = SUMS V2nOLT)*CEXPIAmi ) ♦BK0EL3*T1/ ( 

2T2>>SVKL2( lOLT ) * « A IN-R G2 ) » 

90 CONTINUE 

IFIINER =EQ. 1) SUM2=0«0 

IFIINER «EQ, 1) SUM4 = 0o0 
C1P=CEXP I-AI«ULP-DEU»SPS) 

C2P=CEXP (-AI*IALP-DEL)*SNS) 

C1N=CEKP {-AI*(ALN-OEL)«SPS) 

C2N=CEXPI-AI«IALN~0EL)*SNS) 

F5T=F5T-M SUM l«- SUM 3) *A I » S S / I ALP-DE L) ♦ICIP-C2P) * 

U SUM2+SUM A)«<SS«AI / 4ALN~0E U ♦ <C1 N-C2N) 

AM5T=AM5T<-( SUMl«-SUM38 «S S* I AI » SP S«‘C 1 P/ I ALP-OEU - A I 
1<‘SNIS®'C2P/IALP*0ELHI. C/nALP-DEU**2)*(ClP“C2PHi-A'*J 2oO-SPS 8/( 
2ALP-DEL )♦ IC1P-C2P ) I SUM2^SIM4) ♦SS*! AI *SPS*C1 N/ 4 ALN- 
3DEL )-AI*SNS*C2N/4ALN-0£Ln-loO/I (ALN-DEL) ♦«2 P «tClN-C2N8 4-AI 2=0- 
4SPS»/IALN-0EU«MC IN-C2NI ) 

TEMP=I SPS-SNS) /RLl 
CUNST = I SUMi<i-SUM3)»SS 
C0NST2 = ( SUM2 ^i-SUM4)*SS 
C1A=-AI« I ALP-DEL) 




C2A=-4 I« (ALN-OeiLJ UR.'GfNAL PAG2,' Vii 

CEXP 1=CEXP«CIA*SNSJ OF POOR QUALITY 

CEXP2aCEXP(IC2A*SNSi 
CEXP 1A=CEXP1CIA*TEMP} 

CEXP2A=CE XP«C2A*TEI«P> 

DO ^62 JL=l(,ML 

QRES^UL i =QRESAULII- ICONS T*CE XPl»COMST2*CEXP2 8 
CEXP l^CEXP lOCEXPlA 
CEXP2=CEXP2*CEXP2A 
462 CONTINUE 

BETNP =i 2o 0*R*PI-S5» /SI 
BETNN = I-2eC*R»PE-55I / SI 
ClP^=CEXP«-2oO*PI*R'fAI»SNS/SU 
C2P=CEXP(!-2oO*PX*R*AI *SPS/SIJ 
CiN=CEXP« 2oO*PI*R*AI« SNS/SU 
C2N=CEXPI 2o0tPI*R*AI * SPS/SU 
T1=CEXP<-AI*BE TNP*SPSJ 
T2=CEXP<-AI*8£TNP*SNSI 
T3=CtXP I-AI*8E TNN^SPSJ 
T4=CEXP<-AI*BE TNN^SNS) 

CA l=A I* SS/BE TNP* 8 U-I28 
CA2=A !♦ SS/BETNN* « 73- T4» 

CA3=SS«U !*SPS/BE TNP« Tl-AJ • SNS 
1<«T2/BETNP-M71- 12 

2 ) /BETNP* <‘2 + 8 2o 0- SPSH'i'AI /BETNP* 8TI- 
3T2)J 

CA4=SS*8A I*SPS*T3/0E TNN-AI *SNS* 

IT4/BETNN4-8T3-T4 

2 I/BETNN** 2*( 2oO-SPSI*AI /BE7NN*8 T3- 
3T4}> 

IPC INER aGTo U GO TC 3C0 

F5T=F5T- SUMSVUIOLTI* «BC2*CIP-BC4*C2P)/ 8R-C4»*CAl-SUMSV28 IQUT 5 
1*(QC3*C IP-HC5*C2P) / (R-C5J *CAl 

AS5T=AM5T-SUMSV1 (IQUTI* (BC2*C1P-BC4 *C2P)/ ( R-C4 ) *CA3 -S J MSV 21 lOUT ) 
1*< BC3*C1P-BC5*C2P 5 /8R-C5J*CA3 
TFMP = 8 SPS-SNS) /RLl 

CONST = SS* SUMSViaOUTf«8BC2*CIP-BC4*C2P)/ 8R-C4J 

C0NSr2=SS*SUMSV2 8 80UT>* 8BC3*C1P-BC5 *C2P}/ 8 R-C5 I 

C1A=-A 8*BETNP 

CEXP 1=CEXP8CIA*SNSJ 

CEXP IA=CE XP 8C lA* TEMP) 

on 46 2 2 JL = ljNL 

0RES48 JL ) =QRES4( JLKCCNST*CEXPH!-C0NST2 *CEXPl 
CEXP l=CEXP l*CE XPIA 
4622 CONTINUE 
GO TO 310 
300 CONTINUE 

F5T=F5T-SUMSVUTC CTJ* 8 8 8C2*Cll P-BC4 *C2P ) / 8 R-C4 ) *C Al-8 BC2*CIN-8C4 
l*C2N ) /8R*C4)#CA2»-SUMSV2 8ICLT)* 8 8BC3*ClP-BC5*C2P)/8 R-C5J*CAl 
2-<BC3*ClN-BC5*C2Nl)/8R*C5) *CA2) 

AM5T=AM5T-SUMSVl 8 1 OUT)* 8 8BC2*Cl P-BC4*C2P)/ 8 R-C4 ) *CA3-8 8C2*C1N- 
IBC4*C2N )/(R-»-C4)*CA4}- SUMS))2 8K0UT) *8 8BC3*Cl P-BC5 *C2P)/ 8 R-C5)*CA3 
2 “8BC3*C 1N-BC5*C2N) /(R-t-C5)*CA4l 
TEMP=8 SPS-SNS) /RLl 
C0NST = 8BC 2*C1P-BC 4*C2P) /8R-C4) 



I 


C0NST2=8BC2*CIN-BC4*C2N) /8R<^C4) 
C0NST3 = 8BC3*C1P-BC5*C2P) /8R-C5) 
C0NST4 = 8BC3*C1N-BC5*C2N) /8RfrC5) 





ORIGINAL PAG^ IS 
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CCiNST5=SS*SUMSVl UQUTi 
C0NST6=SS*SLMSV2U0LT> 

CIA=-A I*BETNP 
C2A=-A E*BETNN 
CexP l=CEXP JClA«SiMS> 

CEXP2=ceXP(C2A^l>SNSII 
CEXP IA=CE XP (CIA*TE(“P5 
CEXP 2A =CE XPEr2A*TEMPJ 
DO A623 JL = U a 
URES4C JL J JIHCCN STS* IC0NST*C£XPI -CONST 2*C6XP2D 

I ♦C CNST6* (CONST3*CEXPl -C0NST4*CEX P2 » 

CEXP i=CEXPl*CEXPlA 
CEXP2=CEXP2*CEXP2A 
4623 CONTINUE 
310 CONTINUE 

IE (CABSUAM5TT-AM5TJ /AM5TJ o LTo OoOOU GO TO 95 
AN5TT=AM5T 
8 5 CONTINUE 
GU TD 999 5 
95 CONTINUE 

IF( IMER =LE« 1 6J GC TC 220 
I6=INER 
220 CONTINUE 
F5=F5frF5T 
AM5=AM5^AM5T 
DO 463 JL =UNL 

PRES4I JU =PRES4{ JU + QRE S4 UU 
463 CONTINUE 

ALP l = ( 2oO*PI*C 4-0El*S^S-S^G(“A^/Sl 
ALP 2= I 2oO*P I*C 5-OE(L*SNS-SIGPA) / SI 
TUl.O-CE XP (-2cO*PI*AI*C4J 
T2=1.0-CE XP (-2<.0*PI*A I*C5) 

CIP=CEXP (-2<.0*PI*AI*C4* SNS/Sl»/(T1) 

C2P=CEXP< 2oC*PI*AI*C4*SNS/SU/( TU 
ClN=CEXP<-2.C*PI*AI*C5*SNS/Sn/tT2) 

C2N=ceXPa 2«C*PI*A I*C 5*SNS/S1I / a T2I 
71=CEXP«-AI*SPS*ALPn 
T2=CexP I-AI*SNS*A LPU 
T3=CEXP(-AI*SPS*ALP2J 
T4=CEXP (-Af#SN S*ALP2I 
CA 1=A I*SS/ALPl*d T1-T2J 
CA2=A I')'SS/ALP2*aT3-T4J 
CA3=SS*(A I*SPS*T1/ALP1-AI «S^S 
1*T2/ALP1*(T1-T2) 

2/ALP 1**24-(2o0- SPS)*AI /ALPl*«n-T2) ) 

CA4=SS*(A I*SP S*T3/ALP2-AI*S^S 

1 *T4/ALP2^)■( T3- 741 

2/ALP2*«24- (2«0-SPS)*AI /ALP2*(T3-T4J ) 

F5=F5-2oO*PI»A I*SUMSVUI OUT)* tBC2*Cl P-flC4 *C2P) *CAl-2oO *PI*AI 
l*SUMSV2a lOUTJ* SBC 3*C 1 N-BC 5*C2 NJ *CA2 
A,N5=AM5-2oO*PI*AI *SUMSVl { I CLTJ* (BC2 *C1 P-BC4 *C2P) *CA3-2 <.0 *P I ’5‘A I 

2 *SUMSV2d IOLT)*d8C3*ClN-BC5*C2NI*CA4 
TEV|P=( SPS- SNSI /RLl 

CON ST = SS*2oC*PI*AI 

CQNST2=CONST*SLMS\»l J I CU TJ * IBC2*C1 P-BC4 *C2 PJ 
CON ST 3=CQNSI* SUN S V2 a I Cl 7J * ( BC3*CI N-8C5 *C2 NI 
C1A=-A I*A LP 1 
C2A=-A I*ALP2 


OatCiiNiAL E3 

OK POOR QUALITY 




CEXP 1=CEXP«CIA*SNSJ 
CeXP2=CEXP«C2A*SNS^ 

CEXP IA=CEXP(C1A* TEMPS 
C£XP2A»CE XP «C2A*TEMP) 

DO A632 JLalyNL 
PR E SAUL > =PRESAUL®«-CCNST2#CEXP1«-C0NST3*CEXP2 
CEXP 1=CEXP1*CE XPIA 
CEXP2=CEXP2*CEXP2A 
4632 CtlNTIf^UE 

IF ICABSI IAM5-AM6J /AM5J <,Llo 0o0009S GC TO 100 
AM6=A~I5 
80 CONTJNUE 
GO TO 999£ 

100 CONTINUE 

CL IFT=F UF2-F2P«-F44-F5 

CM0'4T=ANUAM2-AM2P<-AM4*AM5-AMCAXS*CLIFT 
GD TO 5000 

9995 WR I TEI IBB0LTb3020) 

S020 FOR'IA n 55H0*4>f USER FATAL MESSAGE - AMG MODULE -SUBROUTINE SUBO / 
i 39Xo27HAM5T LOOP DIO NCT CCNVERGEo I 

CALL MESAGE<-6lp0jCI ; 

9996 WR ITE( !8BOLTo3C25J 

3025 FORMAT! 55HC»*» USER FATAL MESSAGE - AMG MODULE -SUBROUTINE SUBD / ^ 

1 39Xb 26HAM5 LOOP DID iVCT CONVERGE^ ) 

CALL MESAGEI-6loO jOI 

9997 bP I TE( I0BOUT,3O3OS 

3030 FORMAT! 55H0**o USER FATAL MESSAGE - AMG MODULE -SUBROUTINE SUBD / I 

I 39X5 3CHOUTER LOOP OF AMS EXCEEDED 17 » J 

CALL MESAGEI-61 ffOpCt ! 

5000 CONTINUE 

RETURN ^ 

END 





SURRaUUNF ALAMDA (ARG sYvBLAIVOA! 

SUBROUTINE FOR COMPUTING LAMDA 

CQMMDN/BLKI/SCRKoSPScSNS^OSTRoAI 9 PI ®OELoSIGMA,BETA«RES 

COMPLEX 0LAMOA 9 A I pCl 

SCRK 1= AB SI SCRKI 

ARGl= ABSURGI 

S1=I ARG-DEL)*SPS+ SIGMA 

IF! SCRKl cGT.ARGiJ GO TO 10 

GAM = SQRTI ARG*M2- SCRK**2I 

C1=C0SIGAM*(SNS-YJ )-C E XP ( A I ♦ Sl» *COS IGAMOY) 

C 2 =cnS( SN S*GAM)-CCSI Sll 
BLAMDA =C 1/C2 
RETURN 
10 CONTINUE 

GAM = S0RT( SCkK**2~ARG*«2) 

Cl=COSH(GAM«< SNS-YH-CEXPIAI ♦SU*COSH(GAM*YJ 
C 2 -CnSH( SNS»GAMJ-CCS( SI ) 

BLAMDA =C I /C2 

RETURN 

END 


I 


if 








ORIGWAI PAGE 
OF POOR QUALITY 


J 


t' 



SUBROUTINE AKAPPA {ARG jBKAPPAI 
C 

C SUBROUTINE FOR COMPtTENG KAPPA 
C 

COM'ION/BLKI/SCRKoSPSb 5NS»OSTR»AI oPS ,DEL kS IGMAs BET A» RES 

COMPLEX A I 

SCRKl = ABS ISCRK) 

ARGl = ABS «ARG» 

IF ( SCRKl oGTo ARCU GC TC 10 
GAM = S3RT1 ARG«'*2- SCRK*®2) 

Sl = SNS*GAM 
C1=BETAX‘GAM«SINI SU 
C2=C0S( SI l-COS(UARG“D£U ♦SPS<-SnGMAJ 
6KAPPA=Cl/C2 
RETURN 
10 CONTINUE 

GAM=SQRT{ SCRK«*2-ARG»«-2} 

S1 = SNS*GAM 

C l=-BE TA*GAM»SINH J SU 

C2=C3 SHI 5 U-COS( lARG-OEU »SPSfrSiGMA) 

BKAPPA=C1/C2 
RETURN 
END 



OF POOR 


SUBROUTINE OLKAPW flARG oB IKA Pf“ J 

SUBROUTINE FOR COMPUTING LCGARITHMIC DERI VAT IVE .OF KAPPA MINUS 
COM'«ON /SYSTEM/SVSBUF sIBBCLT 

COMMON/BLKl/SCRKpSPSff SNSjDSTRsAI oPI oDE L cS I GMAv BET Ao RES 

COMPIEX BLKAPMoAI ,Cl oDl 9 O 29 CITEST jARGvEl 

complex ALPC,ALP i,ALN 

Cl=-AI/2oO*ISP S-SNS8 

P I2=2,0*P I 

S1 = SP S/IOSTR»*25 

S2=SN S/DSTR 

GAMO=SP S»0£L-SIGMA 

C2Q=>GAMO/OSTR- SCRK 

C3Q = GAM0/DSTR4-SCRK 

NN=0 

CSFC =C 2Q*C 3Q 
IFICSEC ,LToOoOINN = l 
ri = GAMO^S I 

T2=S2* SQR T(ABSICSEC) I 
IF{C2Q oLT<.C,CoANOoC3QoLToC« C) T2=-T2 
IF(NN «EQ.CJALP0=TH^T2 
IFINNoEQ, 1) ALPO*CMPLX< FI 9 T 2 ) 

C1=C l + loO/(ARG-ALPC} 

A1=P I2/( SP S-SNS» 

A2=-A I 

a I=GAMO/< SP S“SNS» 

C 1TEST=0<, C 
DO 20 1 = 1, 2C0 
R = I 

GAMP=P I 2*R+GAM0 
GAMN=-PI2*R«'GAM0 
C2P=GAMP/0STR-SCRK 
C2Q = GAMP/0STR+SCRK 
C2N = GAMN/D STR- SCRK 
C3Q = GAMN/0STR<-SCRK 
NN=0 

CSEC=C 2P*C2Q 

IF(C SEC oL T.,QoO)NN = l 

TUGAMP^SI 

T2=S2* SOR TIABStC SECH 

IFJC 2P oLTo0c0oANDoC2QoLT„ OoC» T2=-T2 

IF<NN«EQ.C»ALP = TU72 

IF(NN «EQ, 1»ALP=CMPLX( Ti , T2J 

NN = 0 

CSEC=C 2N*C3Q 
IFJCSEC ToOoODNN = l 
Tl=GAMN«Sl 

T2=S2«SQRTIABS(CSECn 
lF(C2NoLToC»CoANOoC3QoLToO«C) T2=-T2 
IF(NN oEQ, 0^ALN = T1^»•T2 
IF<NN oEQ» 1)ALN=CMPLXI 11 , F2 I 
El=A l-ARG 



Dl = ( ALP-A 1*R-BIB /El 
D 2=0 l/E I 

Cl=C l«UO/( U04-01S*02 
El=A2*P fl -8 l-ARG 
Dl=< ALN-A 2*R~0U /£! 

U2=D l/E I 

C1=C l+loO/J lo0«-DU*02 
IF (CABSUC1-C1TES7J /CU oL1 
C ITEST=C I 
20 CONTINUE 
GO TO 999*5 
50 continue 
E 1=ARG-Bl 
B=P 1/A I 

Cl=C 1- loO/Elfl-B 
l*CC3S(B'i‘E n/JCSINJB*E U i 
BLKAPM=C 1 
RETURN 

9999 iftR ITE{ I9BOUT a COCB 

CALL NESAGE(-61,OffC5 
1030 FGR'^AK 55H0**>' USER FATAL MESSAGE 
RETURN 
END 


OF. POOR QUALITY 


O 0 OOO 6 ) GO TO 50 


- AMG MODULE -SUBROUTINE DLKAPMB 


non 


OF POOR QUALITY 


SUBi^OUTINE ASVCON 

SUbROUTINE FOR C0MPU7HNG CCftSlTANT TERM ilN KAPPA MJWUS 

COMMON/BLK2/ BSVCCK 
CUM'IDN /SVSTEM/SVSBUF aBBCU 

COM*^OM/BLKl/SCRKs SPSff 2NSi»OSTRoA? „PI oDE L^S I GMA j BET Ao RES 
COMPLEX BSVCOM,,AX pC I sCl TE S T ? ALP b ALN 9 AR AT 1 9 ARAT2 
Cl=loO 
P I2=2oO*P t 
A I=PI 2/« SPS- SNSJ 
GAMO=SP S«OEL-SIGMA 
A2=-A I 

Bl=GAMO/( SPS-S.MS) 

51 = SP S/(0 STRP*2} 

52 = SNS/OSTR 
C ITE ST=Oo C 
DO 10 I=I»2C0 
R = I 

GAMP=P I2+R+GAM0 
GAMVis-PiaoR^-GAMO 
C2P=GAMP/DSTR- SCRK 
C2Q = GAMP/0STR^SCRK 
C2N=GAMN/0STR- SCRK 
C3Q = GAMN/0STR<-SCRK 
NN =0 

CSEC=C 2POC2Q 
IFCCSEC -L ToO<,OINM = l 
U = GAMP« S 1 

T2=S2« SQR T!ABS(CSECi ) 

IF(C 2P oLToO,C .ANDoC2Q.LTo OoCJ 12 =-T2 
IF(NN oEQo C>ALP = TU72 
IFjNMoEQo UALP=CMPLXni 9 T 2 ) 

NN=0 

CSEC=C2N#C3Q 
IFICSEC oL To0,0)NN = l 
Tl = GAMN*S I 

T2 = S2*SQR MABSICSECM 
IF(C2N oLTcCo0«AM0oC3QoLTo0oC» T2=-T2 
IFJNN oEQoO}ALN=Tl + T2 
IFCMNoEOo 1JALN=CMPLX( 71 oT2J 
ARATl = IAl«'R<-BU/ALP 
ARAT2 = 1 A2*R4-B1 }/ALN 
C l=C KARA U*ARAT2 

IFJCABSUCKCITES7J/CU oLTo 0=00011 GO T 0 60 
C1TEST=C 1 
10 CONTINUE 
GO TO 999 S 
60 CONTINUE 
BSYC0N=C 1 
RETURN 
9999 WR IT£( IBBOUTolCOO) 

CALL MESAGE d-6l909C) 



4 
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SUBRUUTINE AKAPMURG9BKPf4| 

SUBROUTiiNe FOR COMPUTING KAFPA MENUS 
COMMON /SVSEEM/SVSBUF sIBBClT 

COMMON/BLKl/SCRK flSPSo SNSoDSTRoAE oPI 9 OE L 9 S I GMA » BET A® RES 
COMMON/BLK 2 /BSVCaN 

COMPLEK BKPMoCl 9 A I 9 C 1 TE ST jB SKON 9 ARG 
COMPLEX A T29AT3oALPOpALPsALN 
Cl=CE«PI-Al*ARG/2oO» I SPS-SNSt I) 

GAMO = SP S^OEL- SIGMA 
P I2=2oO*P I 
Sl=SP S/IDSVR«*2> 

S2 = SNS/DSTR 
C2a=GAMO/OSTR-SCR(< 

C3Q = GAM0/DSJR4- SCRK 
NN =0 

CSEC =C 2Q*C3Q 
IFICSECoL ToCoOJNNsl 
Tl=GAMO«Sl 

T2=S2>f SQR TIABSICSECI ) 

IFIC2Q »LToOoO«AND=C30oLTo 0» 0) T2 =-T2 

IF(NN oEQo0IALP0 = T14-T2 

IF(NN oEQo lIALP0=CMPLXmoT2I 

Cl=C l«l loO-ARG/ALPGI 

Al=PI2/tSPS-SNS5 

A2=~A 1 

Bl=GAM0/« SPS-SNSI 
ClTEST=OoO 
DO 20 I=lo200 
R = I 

GAMP=P l2fl'R*GAMC 
GAMM=-P£2*R ^^GAM0 
C2P=GAMP/DSTR- SCRK 
C2Q=GAMP/DSTRfr SCRK 
C2N=GAMN/0STR- SCR K 
C3Q=GAMN/DSTR4-SC«K 
NN=0 

CSEC=C 2P«'C2Q 
IFfCSeC oLToOoOINN = l 
Tl=GAMP«Sl 

T2=S2* SQR TIABSICSeCJ I 
IF(C 2P oLToOo 0, AND oC2Q«LT<. 0,01 T2 =-T2 
IFINN,EQoO|ALP = TH»-T2 
IFINNcEQ, l)ALP=CMPLXni jT2l 
NN=0 

CSEC=C 2N»‘C3Q 
IFICSEC oLTo0o0mN=l 
T1=GAMN*S 1 

T2=S2« SQR T(A8S4C SEC n 

IF(C2N ,LT,0»0.ANDcC3QoLTo0»05 T2=-T2 

IF(NN oEQoO)ALN = Tm-T2 

IF(NN ,EQo i|ALN=CMPLX( U ,12) 





• r 
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20 


50 


AT2=4 ALP-A1*R-8U /^Al*R^>•Bl-AfiG^ 

AT3=« ALN-A2*R-BU /«A2*R4’Bl-ARG» 

C l=C 1* j KO^AT2J*UoC^^AT3l 

IF ICABSHCl-ClTESTD/ai) oL?^ 0o0009» GO T 0 50 
ClTESTnCl 
CCNTINUE 
GO TO 9999 
COM TIN UE 

CI=C1*BI/{ARG-0U*CSX MRU /Al* JA RG-BU J / « S I N C PH *Bl/ Al H 
Cl»Cl*BSVCON 
BKP«I=^C I 
RETURN 

\nR ITEI IBBOLTaOOOJ 
CALL NESAGEI-61p0p0!l 

1000 FORMA Tl 55H0*** USER FATAL NESSA6E - ANG MODULE -SUBROUT HNE AKAPM J 
RETURN 
END 


9999 


I 


I i 
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SUBROUnwe DRKAPWIAR6«K MOitpRESL im 

THIS SUBROUTIiME COMPUTES THE DERVIAHVE OF KAPPA MENUS 
COMMON /SVSTEM/SYSBUF aIBBCLT 

COMMON/BLKl/SCRK »SPSo SNSpDSTRoAE jPE jOEL pS I GMA p BET Ap RES 
CDMM3N/BLK2/BSVCON 

COMPLEX AE pARGpRE SLT pBS VC CN pCl p C2 p C2 TEST p AT2 p ATS p AL PO p ALPp ALN 
P I2 = 2.0»'P I 
A1=PE 2/( SPS-SNS) 

A2=-A 1 

GAMO=SP S* DEL- SIGMA 
01=(;AMO/( SP S-SNSl 
Cl=CEXP{-AI«ARG/2oC*J SPS-SNSE ) 

C2Q=GAM0/DSTR- SCRK 
C 3Q=GAMO/OSTR+SCRK 
Sl=SPS/{OSTR*<«2> 

S2 = SN S/OSTR 

NN=0 

CSEC=C 2Q‘!'C 3Q 

IF(C SEC «L T„C.0INN = 1 

n=GAMO«Sl 

T2=S2«-SQR TUBSICSEOE 

EFIC2g »LT .OoOoANDoCBQoLTcOoC) T2=-T2 

IFINNoEQp 0)ALP0=TUT2 

IF(NN oEOo I )ALPa=CMPLXJTl p T2 ) 

R INOX = ENDX 

IF( INDX oEQ. C» GO TC 1 0 

C2=C 1*8 l/ALPC«CSI NJPI /A1 » ( ARG-61 ) ) / ! Al *RINOX^Bl-ARG ) * 

H 1«0*(ALP 0-BU/ERl-ARG) J / ( S I N flP E *B1 / Al H *BS VCON 
GO TO 20 
10 CONTINUE 

C2=C 1«B1/ALP0*CSIN1PE /Al«<ARG-SlH/ HBI-ALPOJ *SIN«PE*Bl/An } 
l*BSYCON 
20 CONTINUE 
C2TFST = 0o C 
DO 30 1=1, 2CC 
R = I 

IFIINDXoLTo 0 oANDo ABSIRINOXJ «EQo RJ GO TO 30 

IF! INOX oGT, 0 oANOo RINOX oEQ» RJ GO TO 30 

GAMP=P I2'»RH>GAM0 

GAMN=-P I 2*R<-GAM0 

C2P=GAMP/0STR-SCRK 

C2Q=GAMP/0STR*SCRK 

C2N = GAMN/0STR-SCRK 

C3Q = GAMN/DSTR4-SCRK 

NN=0 

CSEC=C 2P*C2Q 
IFICSEC pL TcOoOINN = I 
ri = GAMP*S 1 

T2=S2*SQR TIABSICSECn 

IFJC2P pLToCo0oANDoC2QpLT,CpCJ T2 =-T2 

IF(NN oEQ p GIALP=T1 + T2 


IF CNN oEQo lULP=CMPL«m oT2J 
NN =0 

CSEC=C 2N<>C3Q 
IHCSEC oL ToQoO)NN = l 
U=CpAM(VJ*S I 

T2=S2* SQR TIABSICSECJ J 

IFIC 2NoLToCoCoANOoC3QoLToCoCD T2=-T2 

IFtNN oEQoCJALN = TU-TF2 

IF(NN oEQo nALN=CMPUC4 Tl oT2J 

AT2=( ALP-AI*R-B1J / lA I *R-FB I -ABCJ 

AT3=( ALN-A2*R-BU / 4A2»R«-Bl -ARGJ 


ORIQft\:W„ FS 
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C2=C2* ( loO^AT2)P I Io04-A\T3J 

IF (CABS4 IC2-C2TE SIJ /C2{ <. Uo 0o0009J GO TO 40 
C2TEST=C2 
30 CONTINUE 
GO TO 999 <5 
40 CONTINUE 
R E SL T =C 2 


RETURN 

9999 CONTINUE 

vJR ITE( IBBOUTj2C40) 

CALL N1ESAGE 4-6lpO»C) 

2040 FOR'IA T4 55HO*** USER FATAL (“ESSAGE - AMG MODULE -SUBROUTINE DRKAPM) 
RETURN 


END 


ORIGINAL PASC: rs 
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SUDRQUTIN6 INVER S <NDi A oBo^^oDE TERM aS I NGo INDEX ) 

C 

C INVERSE OR LINEAR EGLAIflONS SCLVER 

c 

C NDIM IS THE ACTUAL SI iE CF A IN CALLING PROGRAMo 
C EGo A(NOHM,NDIMJ 

C A IS SQUARE MATRIX TC 0£ XNVEPTEDo 

C N IS SIZE OF UPPER LEFT PCRTSON BEING INVERTEOo MINIMUM 

C 6 IS COLUMN OF CONSTANTS ICPTIONAi INPUTK SUPPLY SPACE B 8 NDIM 9 U 

C M IS THE NUMBER OF COLUMNS CF CONSTANTS 

C DCTERM RETURNS THE VALUE CF DETERMINANT If NON-SINGULAR 
C ISING RETLRNS»2 IF MATRIX AflNoNJ IS SINGULAR 

C » I IF MATRIX AIN bN» IS NON-SINGULAR 

C INVERSE RETURNS IN A 

C STLUTION VECTORS RETURN IN 0 
C INDEX IS (forking STORAGE INoSJ 

0 4i ^ 4r ^ 4t^4i 4'^$4c4< 4>4t4c4i 

DIMENSION A«NDIM,l5fl B(N0IM4)9 IN0£X«Nf3I 
EQUIVALENCE (IROtaoJRCtilo IICCLUMp JC CLUMJ p lAWAXp Tp SWAPJ 
C 

C INITIALIZE 

C 

DETERM = loCEO 
DO 10 J = l,N 
10 INDEX(Jp3J = 0 
DO 130 I=ipN 
C 

C SEARCH FOR PIVOT 

C 

AMAX = 0®CEC 
DU 40 J = loN 

IF(INDEXIJo2) oEQo 1) GO TC 40 
DO 30 K = l»N 

lEl INDEX! Kp 31 - I I 20o30,190 
20 IF( ABSI AIJoKI ) » LE » AMAXI GO TO 30 

mew = j 

ICDLUM :: K 

AMAX = AB S( A IJpK) ) 

30 CONTINUE 
40 CONTINUE 

INDEX I ICOLUM, 3) = I NO E X ( I CC t IM » 3 J «■ I 
INDEX! I p I I = IRON 
INDEX! 1 9 21 = ICOLUM 
C 

C INTERCHANGE ROhS TC PUT PI VCT ELEMENT ON DIAGONAL 

C 

IE ( IRON oEQn ICOLUM) GC TC 70 

DETERM = -0E7ERM 

DU 50 L =1 pN 

SWAP = A! IROWpU 

A! IROWpL ) = A! ICOLUMpL) 

50 A! ICOLUMpU = SWAP 


nrio ono noo 


ORIGINAL PAGE US 
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IF('1 ,LEo 0) GO TO 70 
DO 60 L = l»M 
SWAP = B< IROWsU 
B( H3W»L ) = BUCOLUMoLI 
60 B{ ICOLUMoL I = SWAP 

DIVIDE PIVOT ROW BV PIVOT ElEWEM 

70 PIVDT = A nCQLUM* ICOLLM) 

DETERM = DETERM * PI VCT 
A( 1CDLUM» ICOLUMI = CE 0 
DO BO L=i«N 

80 AUCDLUMbL) = AUCOLUPoLI / PIVOT 
IF(M oLFo 01 GO TO 100 
no 90 L = 1 »M 

90 ttdCOLUMpU = B(ICCLUP»LI / PIVCT 

PEnUCe NON PIVOT ROWS 

100 DJ 130 Ll=loN 

IF(Ll .EQ . ICOLUMI GO TO 130 
T = A (L I 9 ICOLUMJ 
At L 1, ICOLUM I = Co CEO 
DO I 1 0 L = I 9 N 

110 AILULJ = AILlcLI - A(ICCLLPpL) * T 
IF(M oLEo Cl GO TO 13C 
DO 120 L=1»M 

120 BIL l«L >=B ILlpU - BUCOLUPoLJ ♦ T 
130 CONTINUE 

INTERCHANGE COLUMNS 

DO 150 I=lpN 
L = N I - I 

IFt l.NDEXl L» 1 I -EQo INDEX(L,2)I GO TO 150 
JRDW = INDEXapl) 

JCDLUM = IN0EXIL92I 
OD lAO K^lpN 
SinAb - AI K 9 JROW) 

AtKpJRGrtI = AIKpJCOLUMJ 
A(K»JC0LUM) = SWAP 
140 CONTINUE 
150 CONTINUE 

DO 170 K = lpN 

IF( INDEXS Kp 31 oEQo IJ GO TG 160 
ISING = 2 
GO TO 180 
160 CONTINUE 
170 CONTINUE 
ISING = 1 
180 RETURN 
190 ISING = 2 
RETURN 
END 
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SUBROUTINE MESAGE (NO® PARMoNAME) 

MESAG6 IS USED TO QUE IE ^iC^-FATAL MESSAGES a»RING THE EXECUTION 
OF A MODULE AND GIVE A CORE DUMP* PRINT THE MESSAGES^ AND CALL 
PEXIT FOR FATAL MESSAGES 

INTtGER PARHcNAM£(2l 

CALL EXIT 

STOP 

END 
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